Возвести в квадрат все отрицательные элементы заданного столбца двумерного массива Т(3,5) — Pascal(Паскаль)

program PascalGuru;

var
  T: array [1 .. 3, 1 .. 5] of integer; { объявление переменных }
  n, m, i, j: integer;

procedure vozvodim;
var
  i, j: integer;
begin
  for i := 1 to 3 do
    for j := 1 to 5 do
      if T[i, j] < 0 then
        T[i, j] := sqr(T[i, j]);
end;

{ --------------------------------------------- }
begin
  for i := 1 to 3 do
    for j := 1 to 5 do
    begin
      write('T[', i, ',', j, ']=');
      readln(T[i, j]);
    end;

  writeln('Vvedennyi massiv:');
  for i := 1 to 3 do
  begin
    writeln;
    for j := 1 to 5 do
      write(T[i, j]:8);
  end;

  writeln;
  vozvodim(); { вызов процедуры }

  writeln('Vozvedennyi v stepeni massiv:');
  for i := 1 to 3 do
  begin
    writeln;
    for j := 1 to 5 do
      write(T[i, j]:8);
  end;

  readln;

end.