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

 var    b:matrix;
 i, j, jmin: integer;
 k:char;
Procedure App (var a:matrix);
begin
clrscr;
randomize;
writeln('исходная матрица');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
   a[i,j]:=readkey;
    app:=a;
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jmin:=1;
  for j:=2 to n do
  if a[i,j]<a[i,jmin] then jmin:=j;
  k:=a[1,i];
  a[1,i]:=a[i,jmin];
  a[i,jmin]:=k;
 end;
writeln('измененная матрица');
app(b);
for i:=1 to n do begin
 
 for j:=1 to n do begin
 write (a[i,j]:3);
 end;
 writeln;
end;
readln;
end.

uses crt;
const n = 5;
type matrix= array[1..n,1..n] of char;

uses
  crt;
 
const
  n = 5;
 
type
  matrix = array[1..n, 1..n] of char;
 
procedure init(var a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := chr(97 + random(26));
end;
 
procedure output_arr(a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure change(var a: matrix);
var
  i, j, jmin: integer;
  k: char;
begin
  for i := 1 to n do
  begin
    jmin := 1;
    for j := 2 to n do
      if a[i, j] < a[i, jmin] then jmin := j;
    k := a[1, i];
    a[1, i] := a[i, jmin];
    a[i, jmin] := k;
  end;
end;
 
var
  b: matrix;
 
begin
  init(b);
  writeln('Matrix');
  output_arr(b);
  change(b);
  writeln('New Matrix');
  output_arr(b);
  readln;
end.