программа с процедурами операций над матрицами

[Лилея]

Здравствуйте!!!Помогите,пожалуйста найти и исправить ошибку. Программа компилируется, но выводит только результат перестановки матрицы А, хотя действий задано много.
Задание: Составить процедуры перестановки соответствующих элементов столбцов с номерами K и L в квадратной матрице размером n*n. Используя эту процедуру, поменять столбцы 2 и 4 матрицы A(5,5),вычислить матрицу D=А3 +В*А и поменять в ней местами столбцы 1 и 3,где В – квадратная матрица размером 5*5. Элементы матрицы А задать произвольно,а элементы матрицы А задать произвольно,а элементы матрицы В вычислить по формуле b[i,j]=i/j.

Program kursak;
 Const
  Nmax = 5; {Максимальный размер массива}
 Type
  Matrix = array [1..Nmax, 1..Nmax] of integer;[
 Var
  A, B, C, N, K, M, H: matrix;
  i, j, z: integer;
 {Процедура перестановки столбцов K и L}
 {Параметры: k, l - столбцы, m - матрица}
 Procedure obmen (var m:matrica; k, l: byte);
  Var
   i:byte;
   s:integer;
    begin
      for i:=1 to n do
       begin
        S:=m[i,k];
         m[i,k]:=m[i,l];
         m[i,l]:=s;
        end;
     end

 {Процедура вывода элементов матриц}
 {Параметры: А, В - матрицы, z - размер}
 Procedure Echo (z: integer; A: matrix);
  Var
   i, j:byte;
  Begin {Echo}
   For i: = 1 to z do
    Begin
     For j: = 1 to z do
      Write (A [i,j]:5);
     Writeln;
    End;
  End; {Echo}
 {Процедура умножения матриц}
 {Переменные: A, B - начальные массивы}
 {C - массив результат, z - размер}
 Procedure Umn (A, B: matrix; z: integer; Var C: matrix);
  Var
   i, j, k, s: integer;
  Begin {Umn}
   For i: = 1 to z do
    For j: = 1 to z do
     Begin
      s: = 0;
      For k: = 1 to z do
       s: = s + A [i, k] * B [k, j];
      C [i, j]: =s;
     End;
  End; {Umn}
 {Процедура транспонирования массивов}
 {Переменные: А - начальный массив, В - массив результат}
 Procedure Transpon (A: matrica; z: integer; Var B: matrica);
  Var
   i, j: integer;
  Begin {Transpon}
   For i: = 1 to z do
    For j: = 1 to z do
     B [i, j]: = A [j, i];
  End; {transpon}

 {*** процедура суммирования матриц ***}
 procedure summa (A,B:matrica; n:integer; var S:matrica);
 begin
   for i:=1 to n do
   for j:=1 to n do
   S[i,j]:=a[i,j]+b[i,j];
 end;

Begin {kursak}
    Randomize;
      For i:=1 to n do
      For j:=1 to n do
      A[I,j]:=round(random(10));
       For I:=1 to n do
       begin
       For j:=1 to n do
        Write (A[I,j]:5);
         Writeln;
	 End;
          Obmen (A,2,4);
          Writeln;
            For i:=1 to n do
           Begin
             For j:=1 to n do
              Write(A[I,j]:5);
              Writeln;
             End;
               Readln;				
begin
 read(n,m);
 i:=1;  {счетчик строк}
 j:=1;  {счетчик столбцов}
 while (i<=n) and (j<=m) do
  begin
   B[i,j]:=i/j;
   inc(j);  {увеличиваем счетчик столбцов}
   if (j=m+1) then {если текущий столбец вышел за пределы массива, то}
    begin
     j:=1;  {делаем текущим первый столбец}
     inc(i); {увеличиваем счетчик строки}
    end;
  end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(b[i,j]:5); {выводим массив уже по-обычному}
  writeln;
 end;
 readln
end;
   Umn (A,A,n,U1);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (U2[I,j]:5);
             Writeln;
           End;
      End;
       Transpon (U2,n,T);
             Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (T[I,j]:5);
             Writeln;
           End;
      End;
        Umn (T,B,n,C);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (C[I,j]:5);
             Writeln;
           End;
      End;
                    SUmma (U2,C,n,D);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (D[I,j]:5);
             Writeln;
           End;
      End;
          
             Obmen (A,2,4);
               Writeln;
               For i:=1 to n do
                 Begin
                   For j:=1 to n do
                    Write(A[I,j]:5);
                    Writeln;
             End;
               Readln;	
  End.

[Лилея]

Мне уже помогли.Это совершенно неправильный код...