Pascal abc написание программы заполнить двумерный массив а (mхn) элементов числами из текстового файла. каждую строку массива а упорядочить по убыванию пересчетом в соответствующую строку массива в (mxn).

Uses crt;
const nmax=16;
var a:array[1..nmax,1..nmax] of char;
b:array[1..nmax] of char;
m,n,i,j:byte;
buf:char;
s:string;
f:text;
begin
clrscr;
assign(f,'input.txt');
reset(f);
read(f,m,n);
readln(f,s);
writeln('Исходная матрица:');
for i:=1 to m do
begin
readln(f,s);
for j:=1 to n do
begin
a[i,j]:=s[j];
write(a[i,j]:2);
end;
writeln;
END.