Упорядочить по возрастанию элементы в каждой строке матрицы A(K,L), K меньше или равно 80, L меньше или равно 50 — Pascal(Паскаль)

const
K = 80; {максимальное количество строк в массиве}
L = 50; {максимальное количество столбцов в массиве}
 
var
N, {реальное количество строк в массиве}
M,{реальное количество столбцов в массиве}
max, {максимальный элемент в строчке}
p, {промежуточный элемент при перестановке}
i, j, t: integer; {cчетчики}
a: array [1..K, 1..L] of integer; {ваш массив}
 
BEGIN
 
write('Enter N between 1 and ', k, ' : '); {справка пользователю}
readln(n); {узнали реальное количество строк в массиве}
 
write('Enter M between 1 and ', l, ' : '); {справка пользователю}
readln(m); {узнали реальное количество столбцов в массиве}
writeln;
 
{Вводим массивчик}
 
for i:= 1 to N do
   for j:= 1 to M do
begin
write('a[ ', i,' , ', j, ' ] = '); {справка пользователю}
readln(a[i,j]); {считали элемент массива}
end;
 
{Выведем его на экран - чтобы легко было проверить результаты}
 
writeln;
writeln('Input array is: ');
 
for i:= 1 to N do
   for j:= 1 to M do
begin
 
write(a[i,j], ' ');
if j = M then
writeln;
 
end;
 
{Вывели. Теперь переставляем в связи с условием}
 
for i:= 1 to N do
   for j:= 1 to M do
      for t:= j+1 to M do
         if a[i,j] > a[i,t] then
           begin
            p:= a[i,j];
            a[i,j]:= a[i,t];
            a[i,t]:= p;    
           end;
 
{Переставили. Выводим результатище на экран}
 
writeln;
writeln('Result array is: ');
for i:= 1 to N do
   for j:= 1 to M do
begin
 
write(a[i,j], ' ');
if j = M then
writeln;
 
end;
 
{Вывели. Останавливаем курсор}
readln;
 
END.