Заполнить каждый элемент двумерного массива суммой его индексов.В чётных столбцах значение удвоить,в нечётных уменьшить на 2.Найти позицию минимального элемента массива — Pascal(Паскаль)

Uses
   crt;
Const
   n= 7;
   m= 8;
Type
   TMas= array [1..n,1..m] of real;
Var
   A : Tmas;
   i , j , Imin_pos, Jmin_pos : byte;
   min : real;
Begin
clrscr;
{заполнение масива}
For i:=1 to n do
  begin
     for j:=1 to m do
         begin
            A[i, j] := i+j;
            write (A[i,j] : 6 : 2);
          end;
     writeln;
  end;
writeln;
{задание }
min:=A[1,1];
For i:=1 to n do
    begin
       for j:=1 to m do
           begin
               if (j mod 2 = 0) then
                    A[i,j]:=2*A[i,j];
               if (j mod 2 = 1) then
                    A[i,j]:= 1/2 * A[i,j];
               if A[i,j]< min then
                    begin
                       min := A[i,j];
                       Imin_pos := i;
                       Jmin_pos := j;
                    end;
               write( A[i,j] : 6 : 2);
           end;
       writeln;
   end;
writeln (' Минимальний элемент ', A[i,j] : 5 :2 ,' находиться на позиции [',i,',',j,'] ');
readln;
end.