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;beginclrscr;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.