Вводится число N,а затем n чисел.Выведите среди N чисел только положительные

Program Prog; Uses crt;  var a: array [1..100] of real;      i, N: integer;    begin  clrscr;    Write('N = ');  readln(n);    for i:=1 to n do  begin      write('a[',i,'] = ');      readln(a[i]);  end;    writeln;  writeln('Положительные числа: ');   for i:=1 to n do  if (a[i]>0) then      writeln('a[',i,'] = ', a[i]);  end.