можете проверить,а если не верно,то исправить ?var a:array [1..10] of

сможете проверить,а если не верно,то поправить ?

var

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

i:integer;

begin

for i:= 1 to 10 do

readln (a[i]);239

if a[i]gt;17 then;

writeln (a[i]);

end.

само задание:. Подсчитать количество частей массива gt; 17. Массив из 10 элементов.