Дана матрица из 2 строк и 3 столбцов. Увеличить отрицательные элементы матрицы во 2 и 3 столбцах в 3 раза- Pascal(Паскаль)

Program obratnaya_matrica;
Uses crt;
Var i,j:integer;
    A:array [1..10,1..10] of integer;
begin
 clrscr;
 writeln ('Vvedite elementi matrici: ');
 for i:=1 to 2 do
  for j:=1 to 3 do
    read(A[i,j]);
 writeln;
 for j:=2 to 3 do
  for i:=1 to 2 do
   if A[i,j]<0 then A[i,j]:=A[i,j]*3;
  writeln('Matrica: ');
  for i:=1 to 2 do
   begin
    writeln;
    for j:=1 to 3 do
     write (' ',A[i,j],' ');
   end;
 readkey;
end.