символьная матрица, помогите найти ошибку Опции

[medved777]

Ребята, большое спасибо за помощь при решении лабы на прошлый запрос.
Пожалуйста помогите разобраться в другой проблеме!!!
Программу составила, но она выдает на печать что-то несуразное. Не могу найти ошибку. Текст задачи : Дана символьная матрица. Упорядочить строки матрицы по убыванию. Пожалуйста!!!!!!!!

program pr1;
const m=3;n=3;
type matr=array[1..n,1..m] of char;
procedure outmatr(a:matr;n,m:byte);
var i,j:byte;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end;
end;
procedure sort(var a:matr;n,m,l:byte);
var i,j:byte;b:char;
begin
for i:=n downto 1 do
begin
b:=a[l,i];
j:=i;
while (a[l,j+1]>b) and (j<n) do
begin
a[l,j]:=a[l,j+1];
j:=j+1;
end;
a[l,j]:=b;
end;
end;
var a:matr;i,j:byte;
begin
for i:=1 to n do begin
for j:=1 to m do begin
writeln('wwedite ',i,',',j,' element matrici');
readln(a[i,j]);
end;
end;
sort(a,n,m,i);
outmatr(a,n,m);
end.

М

Пожалуйста, ставь ТЕГИ! Lapp