Ну блин
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
writeln;
{ я взял n это сколько строк и сколько столбиков, разберешься }
{ теперь выведем отрицательные числа }
for i:=1 to n do
for j:=1 to n do
if a[i,j]<0 then writeln(a[i,j]);<br>все :)