Проверте,где ошибка?

[1da]

Дана квадратная матрица символьных величин.В каждом столбце найти символ с минимальным кодом.Поменять местами каждый такой символ с соответствующим элементом первой строки.Жду ваших мыслей и решений! прошу при возможности исправить.





program maximum;
uses crt;
const nn=20;
mm=20;
type Tmatrix=array[1..NN,1..MM] of byte;
Tmatrix2=array[1..NN,1..MM] of char;
var a:tmatrix;
b:tmatrix2;
i,i1,j,n,m:integer;
min,p:char;
Begin
clrscr;
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
writeln('a[',i,',',j,']=');
read(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
b[i,j]:=chr(a[i,j]);
end;


{ i1:=0;
for j:=1 to m do
begin
min:=ord(a[i1+1,j]);
for i:=1 to n do
begin
if min>ord(a[i,j]) then
min:=ord(a[i,j]);
end;
end;}


for i:=1 to n do
begin
for j:=1 to m do
write(b[i,j]);
writeln;
writeln;
end;

readkey;
end.