известны оценки по информатике каждого ученика класса (30чел). составить программу для определения количества оценок высокого уровня (10,11,12) для lazarus

program znanija

var arr: array [1..30] of integer;

var i: integer;

begin

for i:=0 to 30 do  

begin

 readln (arr [i]);

end;

for i:=0 to 30 do

begin

 if arr[i] > 10 then

 begin

  writeln (arr [i]);

 end;

end;

end.

Или линк: https://pastebin.com/Jm5R4Ehp