Программа Pascal, нужно закончить программу, написав начало и конец. В данной части тоже чего-то не хватает. Help

Const n=5; m=8
 
For l:=1 to n do
For i:=1 to m-1 do
For j:=i+1 to m do
If mas[l, i]>mas[l, j]then
t:=mas[l, i];
mas[l ,i]:=mas[l, j];
mas[l, j]:=t;

 const n=5;
     m=8;
var mas:array[1..n,1..m] of integer;
    l,i,j,t:integer;
begin
randomize;
writeln('Исходная матрица');
for l:=1 to n do
 begin
  for i:=1 to m do
   begin
    mas[l,i]:=10+random(90);
    write(mas[l,i]:3);
   end;
  writeln;
 end;
for l:=1 to n do
for i:=1 to m-1 do
for j:=i+1 to m do
if mas[l,i]>mas[l,j]then
 begin
  t:=mas[l,i];
  mas[l,i]:=mas[l,j];
  mas[l,j]:=t;
 end;
writeln('Строки матрицы отсортированы по возрастанию');
for l:=1 to n do
 begin
  for i:=1 to m do
  write(mas[l,i]:3);
  writeln;
 end;
end.