Выполнить сортировку строк матрицы по возрастанию

Var E1:array[1..100,1..100] of integer; E2:array[1..100] of integer;
i,j,min,c,n,k,x:integer;
Begin
Randomize;
Write('n='); Readln(n); min:=25;{ввод размера матрицы}
For i:=1 to n do
 Begin
  For j:=1 to n do
   Begin
    E1[i,j]:=random(51)-25;{генерация произвольных значений элементов массива}
    If i=j then E2[i]:=E1[i,j];{заносим значения элементов главной диагонали в 2-ой массив}
   End;
  Writeln;
 End;
i:=1;
While i<=n do
 Begin
  For j:=1 to n do
   For k:=1 to n do
    If (E1[i,j]<E1[i,k]) and (j>k) then
     Begin
      c:=E1[i,j]; E1[i,j]:=E1[i,k]; E1[i,k]:=c;{выстраиваем элементы по строкам в порядке возрастания}
     End;
  inc(i);
 End;
For i:=1 to n do
 Begin
  For j:=1 to n do
   Begin
    Write(E1[i,j]:4);{выводим уже упорядоченную матрицу}
   End;
  Writeln;
 End;
Writeln;
For i:=1 to n do
 Begin 
  Writeln(E2[i]);{выводим 2-ой массив}
  If E2[i]<min then
   Begin
    min:=E2[i];{ищем минимум в 2-ом массиве}
    x:=i;{запоминаем номер минимума}
   End;
 End;
Write('min:',min,'number:',x);
Readln;
End.