Вывести матрицу на экран табличной форме

const p : array[1..3, 1..3] of integer = ((4,8,7),(-4,5,2),(-6,-1,-3));
var
  z : array[1..3, 1..3] of integer;
  i, j, pr1, max, sm2, ko : integer;
begin
  ko := 0;
  sm2 := 0;
  max := -32768;
  pr1 := 1; 
  writeln('матрица P:');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      write(p[i,j]:4);
      if i = 1 then pr1 := pr1 * p[i,j]; {произведение 1 строки} 
      if p[i,j] >= max then max := p[i,j]; {максимальный элемент}
      if j = 2 then sm2 := sm2 + p[i,j]; {сумма 2 столбца}
      z[i,j] := p[i,j] - 10; {новая матрица}      
    end;
    writeln
  end;
  writeln('матрица Z:');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(z[i,j]:4);
    writeln
  end;
  writeln('отрицательные: ');
  for i := 1 to 3 do
    for j := 1 to 3 do    
      if p[i,j] < 0 then {отрицательные}
      begin
        write(p[i,j]:4);
        inc(ko)
      end;
  writeln;
  writeln('количество отрицательных матрицы P: ', ko);
  writeln('максимальный элемент матрицы P: ', max);
  writeln('произведение первой строки матрицы P: ', pr1);
  writeln('суммма второго толбца матрицы P: ', sm2)  
end.