Дан массив из 10 элементов в диапазоне от 0 до 100

Найти S элементов, больших 50 и посчитать их количество

Program n1;

var a: array[1 ... 10] of integer;

S, i, k: integer;

begin

randomize;

write ('массив: ') ;

S:=0;

k:=0;

for i:=1 to 10 do

begin

a[i]:=random (101) ;

write (a[i],' ') ;

end;

writeln;

write ('сумма a[i]>50: ') ;

for i:=1 to 10 do if a[i]>50 then

begin

k:=k+1;

S:=S+a[i];

end;

writeln (S) ;

write ('кол-во: ', k) ;

end.