В матрице поменять местами два столбца с заданными номерами

uses crt;
const m=5;
      n=6;
var a:array[1..m,1..n]of integer;
    c:array[1..m,1..n]of integer;
    i,j,k1,k2,x:integer;
begin
clrscr;
randomize;
writeln('Matrica A:'); {создаем и выводим на экран матрицу}
for i:=1 to m do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(9)+1;
         write(a[i,j]:3);
       end;
     writeln;
   end;
readln;
repeat
write('Vvedite 1 ctolbec dlja perestanovki k1='); {выбираем столбцы для обмена}
readln(k1);
until (k1>0)and(k1<=n);
repeat
write('Vvedite 2 ctolbec dlja perestanovki k2=');
readln(k2);
until (k2>0)and(k2<=n)and(k2<>k1);
for i:=1 to n do
  begin
    x:=a[i,k1];  {меняем в строказ соответствующие элементы меситами}
    a[i,k1]:=a[i,k2];
    a[i,k2]:=x;
  end;
writeln('Perestanovka stolbcov:');
for i:=1 to m do
    begin
      for j:=1 to n do
      write(a[i,j]:5);
      writeln;
    end;
readln;
end.

uses crt;
const n=6;
var a,c:array[1..n,1..n]of integer;
    i,j,k1,k2,x,sm:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(9)+1;
         write(a[i,j]:3);
       end;
     writeln;
   end;
readln;
repeat
write('Vvedite 1 ctolbec dlja perestanovki k1=');
readln(k1);
until (k1>0)and(k1<=n);
repeat
write('Vvedite 2 ctolbec dlja perestanovki k2=');
readln(k2);
until (k2>0)and(k2<=n)and(k2<>k1);
for i:=1 to n do
  begin
    x:=a[i,k1];
    a[i,k1]:=a[i,k2];
    a[i,k2]:=x;
  end;
writeln('Perestanovka stolbcov:');
for i:=1 to n do
    begin
      for j:=1 to n do
      write(a[i,j]:4);
      writeln;
    end;
for j:=1 to n do
  begin
    sm:=0;
    for i:=1 to n do
    sm:=sm+a[i,j];
    c[j,j]:=sm;
  end;
writeln('Diagonalnaja matrica C:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(c[i,j]:4);
    writeln;
  end;
readln;
end.

randomize;
writeln('Matrica A:');
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(9)+1;
         write(a[i,j]:3);
       end;
     writeln;
   end;

witeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
read()a[i,j];
readln;
clrscr;
writeln('Matrica A:');
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:3);
   end;
writeln;

а) Сформировать из столбцов В, не содержащих равных элементов, матрицу С размером m х k, где k £ n - количество таких столбцов;

uses crt;
var b,c:array[1..50,1..50]of integer;
    m,n,k,i,j,l,t,p:integer;
begin
clrscr;
write('Kolichestvo strok m=');readln(m);
write('Kolichestvo stolbcov n=');readln(n);
writeln('Vvedite ',m*n,' elementov matricy:');
for i:=1 to m do
for j:=1 to n do
read(b[i,j]); //вводим элементы так, чтобы были столбцы и с одинаковыми и неодинаковыми элементами
readln;
clrscr;
writeln('Ishodnaya matrica B:');
for i:=1 to m do
   begin
    for j:=1 to n do
    write(b[i,j]:4);
    writeln;
   end;
k:=0;
for j:=1 to n do //идем по столбцам
  begin
    t:=0; //считаем что одинаковых нет
    for i:=1 to m-1 do смотрим элементы вниз по столбцу
    for l:=i+1 to m do
    if b[i,j]=b[l,j] then //если встречаем,
    t:=1;  //фиксируем
    if t=0 then  //если не встречаем
      begin
        k:=k+1;//присваиваем номер столбцу матрицы С
        for p:=1 to m do //копируем в него столбец без одинаковых элементов
        c[p,k]:=b[p,j];
      end;
   end;
writeln('Matrica C:'); //выводим
for i:=1 to m do
   begin
    for j:=1 to k do //но уже до к
    write(c[i,j]:4);
    writeln;
   end;
readln
end.

б) в матрице С вычислить суммы элементов строк, номера которых определяются номерами ненулевых элементов заданного вектора.

uses crt;
var c:array[1..50,1..50]of integer;
    zv:array[1..50] of integer;
    m,n,i,j,s:integer;
begin
clrscr;
write('Kolichestvo strok matricy C i dlina vectora ZV m=');readln(m);
write('Kolichestvo stolbcov matricy C  n=');readln(n);
writeln('Vvedite ',m*n,' elementov matricy C:');
for i:=1 to m do
for j:=1 to n do
read(c[i,j]);
readln;
clrscr;
randomize;
writeln('Ishodnaya matrica C:');
for i:=1 to m do
   begin
    for j:=1 to n do
    write(c[i,j]:4);
    writeln;
   end;
writeln('Zadannyj vector ZV:');
for i:=1 to m do
  begin
    zv[i]:=random(2);//чтоб не вводить вручную, выкинет случайно числа 0 и 1, только строк бери не менее 5
    write(zv[i],' ');
  end;
writeln;
for i:=1 to m do
if zv[i]<>0 then //если i-товый элемент не нулевой
   begin
     s:=0;//сумма=0
     for j:=1 to n do
     s:=s+c[i,j]; //считаем сумму в строке
     writeln('Summa v stroke ',i,' = ',s);//выводим построчно
   end;
readln
end.

uses crt;
const z=25; //предельный размер матрицы
var a:array[1..z,1..z]of real;
    i,j,n,m:integer;
{процедура транспонирования матрицы нужна, потому что матрицы вытянутые вверх или в ширину, транспонируются по разному, поэтому процедура вызывается с параметрами, взависимомти от вытянутости матрицы}
procedure TrMatrix(x,y:integer);
var i,j:integer;
    b:real;
begin
{транспонирование матрицы в цикле}
for i:=1 to x do
for j:=i to y do //здесь не от 1 а от i, не спутай
   begin
     b:=a[i,j];
     a[i,j]:=a[j,i];//обмен элементов строк и столбцов
     a[j,i]:=b;
   end;
end;
begin
clrscr;
{вводим размер массива}
repeat
write('n=');
readln(n)
until (n>0)and(n<=z);
repeat
write('m=');
readln(m);
until (m>0)and(m<=z);
randomize;
{в цикле случайным образом создаем матрицу}
for i:=1 to n do
   begin
     for j:=1 to m do
       begin
         a[i,j]:=9*random;
         write(a[i,j]:4:1);
       end;
     writeln;
   end;
readln;
{вызов процедуры транспонирования матрицы}
if n>m then TrMatrix(m,n) //вот здесь сказывается вытянутость
else TrMatrix(n,m);
writeln;
{вывод результата работы}
for i:=1 to m do
   begin
     for j:=1 to n do
     write(a[i,j]:4:1);
     writeln;
   end;
readln
end.