Паскаль. Дана квадратная матрица(случайные числа от -10 до 10) организовать вывод

Ну блин
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]lt;0 then writeln(a[i,j]);
все :)