Код

program Project3;

{$APPTYPE CONSOLE}

uses

 SysUtils;

 Function f(a, b: Integer): Integer;

 begin

   Result := 0;

   while a > 0 do

   Begin

     b := b * 10 + (a mod 10);

     a := a div 10;

     Result := b;

   end;

 end;

 Var

 A: Array of Array of Integer;

 n , m , i , j , k : Integer;

begin

 WriteLn ('Введите длину стороны матрицы');

 ReadLn (n);

 m := n;

 SetLength (A , n, m);

  WriteLn ('Заполните матрицу');

    For i := 0 to (n-1) do

      Begin

        For j := 0 to (m-1) do

          Read (A[i , j]);

          ReadLn;

      End;

 WriteLn ('Ваша матрица:');

   For i := 0 to (n-1) do

     Begin

       For j := 0 to (m-1) do

         Write (A[i , j]: 4);

         WriteLn;

     End;

 For j := 0 to n-1 do

 begin

   i:=j;

     A[i,j] := f( A[i,j], 0);

 end;

 For i := 0 to n-1 do

 begin

   j:= n - i - 1;

     A[i,j] := f( A[i,j], 0);

 end;

 If n mod 2 = 1 then

 begin

 k := ((n-1) Div 2 + 1);

 A[k, k] := f( A[k, k], 0);

 end;

 WriteLn ('Изменённая матрица:');

   For i := 0 to (n-1) do

     Begin

       For j := 0 to (m-1) do

         Write (A[i , j]: 4);

         WriteLn;

     End;

 ReadLn;

end.