паскаль паскаль паскаль

PROGRAM _;
USES crt;
VAR a:array[1..n] of real;
i,num:integer;
key:real;
BEGIN
i:=1; переменная счетчик
key:=0; переменная в которую складываем все положительные числа
num:=0; переменная в которой считаем количество положительных чисел
repeat
if a<0 then begin;
key:=key+a;
num:=num+1;
end;
until i=n;
key:=key/num; в переменную помещаем ответ
write(key); выводим ответ на экран
end.
могут быть опечатки, давно не писал на паскале