Написать процедуру, которая в заданном одномерном массиве меняет местами максимальный и первый элемент

type
  mas = array[1..20] of integer;mas1 = array[1..20, 1..20] of integer;
 
var
  a: mas1;
  b: mas;
  m, n, i, j, max, min: integer;
//procedure zamena 
procedure zamena(var b: mas);
var
 temp, max, nmax, i, k: integer;
begin
  k := b[1];max := b[1];
  for i := 1 to n do 
  begin
    if b[i] > max then begin
      max := b[i];nmax := i
    end;
  end;
  
  b[1] := max;b[nmax] := k;
end;
 
procedure vvod(var a: mas1; n, m: integer);
 
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do 
    begin
      write('a[', i, ',', j, ']=');
      readln(a[i, j])
    end;
end;
 
procedure vid(a: mas1; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do 
    begin
      writeln(a[i, j])
    end;
end;
 
begin
  writeln('n,m=');readln(n, m);
  vvod(a, n, m);
  zamena(a);
  vid(a, n, m);
  
  
end.

type
  mas = array[1..10] of integer;//столбец
  mas1 = array[1..10] of mas; //массив столбцов
//procedure zamena
procedure zamena(var b:mas; n,m:integer);
var temp, max, nmax, i: integer;
begin
nmax := 1;
max := b[1];
for i := 2 to n do
if b[i] > max then
 begin
  max := b[i];
  nmax := i
 end;
temp:=b[1];
b[1] := b[nmax];
b[nmax] := temp;
end;
 
procedure vvod(var a: mas1; var n, m: integer);
var i, j: integer;
begin
repeat
write('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество столбцов от 2 до 10 n=');
readln(m);
until m in [2..10];
writeln('Введите элементы матрицы по столбцам');
for j:=1 to m do
 begin
  writeln('Столбец ',j);
  for i := 1 to n do
   begin
    write('a[', i, ',', j, ']=');
    readln(a[j][i])
   end;
 end;
end;
 
procedure vid(a: mas1; n, m: integer; s:string);
var i, j: integer;
begin
writeln(s);
for i := 1 to n do
 begin
  for j := 1 to m do
  write(a[j][i]:5);//выводим транспонировано
  writeln;
 end;
end;
var a: mas1;
    m, n, j: integer;
begin
vvod(a, n, m);
vid(a, n, m,'Исходный массив');
for j:=1 to m do
zamena(a[j],n,m);
vid(a, n, m,'Измененный массив');
end.