Вводится число 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.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.