напишите программу которая находит в массиве количество элементов равных максимальному ПАСКАЛЬ. ​

program ghh;

var i, j, k: Integer;

ma: array[1..20] of integer;

begin

j:=0;

k:=0;

for i:=1 to 20 do

begin

ma[i]:= random(10);

if ma[i] > j then

j:= ma[i]

end;

for i:=1 to 20 do

begin

if ma[i] = j then

k:= k + 1;

end;

WriteLn(k)

end.