Здравствуйте, помогите пожалуйста решить задачу:В одномерном массиве из N чисел вывести на экран положительные элементы и сообщение об их количестве.Помогите пожалуйста! CLS RND Находим все положительные числа в одномерном массиве и выводим их количество INPUT "Количество элементов"; n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT i REM Выбор положительных чисел k = 0 FOR i = 1 TO n IF a(i) > 0 THEN k = k + 1: PRINT a(i) NEXT i REM Количество положительных чисел PRINT k END В чем ошибка?

Var a:array[1..10]of integer;
i:byte;
k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
a[i]:=-500+random(500);
for i:=1 to n do begin
if a[i]>0 then
writeln(a[i]);
k:=k+1;
end;
writeln(количество =,k);
end.