Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве А {1...10}

Var
a:array[1..10] of integer;
i, k:integer;
begin
for i:=1 to 10 do begin
write(i,-й элемент: );
readln(a[i]);
end;
k:=0;
for i:=1 to 10 do
if a[i]gt;50 and a[i] mod 3 = 0 then
k:=k+1;
writeln(k, чисел);
end.