program rrr;
const n=10;
var
i:integer;
a:array[1..n] of real;
begin
for i:=1 to n do begin write ('a[i,2]=');
readln(a[i]) end;
for i:=1 to n do begin if a[i]<0 then writeln('a[i,2]=');end;
for i:=1 to n do begin if a[i]>0 then writeln('a[i,2]=');end;
for i:=1 to n do begin if a[i]=0 then writeln('a[i,2]=');end;
end.


эта программа должна ввыводить отрицательные потом положительные потом нулевые значения, посмотрите и скажите где ошибка?

нет вывода значений a[i] вообще, только вывод константы-текста 'a[i,2]='

Можно дописать в последних трех циклах при выводе
writeln('a[i,2]=', a[i]);