Поменять местами строки двумерного массива, первым элементом у которых является 5

Program _array;
 
const
 
  N = 3;
  M = 2;
  
var
 
  i,j,L1,L2:integer;
  mas:array [1..N,1..M] of integer;
  
procedure SwapLines(L1,L2:integer);
 var 
  i:integer; 
  temp:array [1..M] of integer;
begin
 for i:=1 to M do temp[i]:=mas[L1,i];
 for i:=1 to M do Mas[L1,i]:=Mas[L2,i];
 for i:=1 to M do Mas[L2,i]:=temp[i];
 writeln('Строки массива успешно поменяны');
end;
 
 
procedure OutArray;
 var
  
    i,j:integer;
    
begin
 for i:=1 to N do begin
 for j:=1 to M do write(mas[i,j],' ');
                  writeln;
                  end;
 writeln;
end;
 
BEGIN
 
{ fill array  }
 Writeln('Заполнение массива: ');
 for i:=1 to N do 
 for j:=1 to M do begin
                   Write('mas[',i,',',j,']: ');
                   Readln(mas[i,j]);
                  end;
 
{ output original array }
 writeln('Сформирован массив: ');
 OutArray;
 
 
{ find & swap }  
 L1:=0;L2:=0;
 for i:=1 to N do 
 if mas[i,1]=5 then begin
                     L2:=L1;
                     L1:=i;
                    end;
 if l2>0 then swaplines(L1,L2)
         else writeln('Массив не содержит хотябы 2 строк, начинающихся с 5 ');
 
{ out reversed array}
 Writeln('После модификации: ');
 OutArray;
END.