Вводится число 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]gt;0) then
     writeln('a[',i,'] = ', a[i]);
 end.