طلب عاجل لخبراء الباسكال

[mhibla_oran]

أرجو مساعدتي بخصوص هذا الواجب

faite un algoritme qui détérmine le nombre de répétition d'une valeur dans un tableau à une dimension

وشكرا

[lotfi_dk90]

Program m ;
var
T : array[1..100] of integer ;
i , N, val,s : integer ;
begin
write (' donner les nb des case ');
readln (n) ;
for i:=1 to n do
begin
write ('t[',i,']= ');
readln (t[i]);
end;
writeln( 'donner le val ');
readln (val);
for i := 1 to N do
if T[i] = val then
s := s +1 ;
writeln(' le nbr de repetition est = : ', s ) ;
End.