Метод Гаусса, добавить выбор разрешающего элемента

var n,m,i,j,k,r:integer; max,c,s,z:real;
   a:array [1..100,1..100] of real;
   b:array [1..100] of real;
   x:array [1..100] of real;
  
 begin
  Writeln('Введите количество строк:');
  Readln(n);
  Writeln('Введите количество столбцов:');
  Readln(m);
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
 Write('a[',i,',',j,']=');
 Read(a[i,j]);
 end;
  Write('b[',i,']=');
  Readln(b[i]);
  Writeln;
 end;
   for k:=1 to n do
    begin
     max:=abs(a[k,k]);
     r:=k;
      for i:=k+1 to n do
       if abs(a[i,k])>max then
     begin
  max:=abs(a[i,k]);
  r:=i;
 end;
    for j:=1 to m do
     begin
      c:=a[k,j];
      a[k,j]:=a[r,j];
      a[r,j]:=c;
 end;
   c:=b[k];
   b[k]:=b[r];
   b[r]:=c;
  for i:=k+1 to n do
   begin
    Z:=a[i,k]/a[k,k];
     for j:=k to m do
      begin
       a[i,j]:=a[i,j]-a[k,j]*Z;
 end;
  b[i]:=b[i]-b[k]*Z;
 end;
 end;
  for i:=1 to n do
   begin
    for j:=1 to m do
     Write(a[i,j]:5:1,' ');
     Write('|');
     Write(b[i]:5:1);
     Writeln;
 end;
  Writeln('Решение:');
  Writeln;
   if a[n,m]=0 then
    if b[n]=0 then  
     Writeln('множество решений')
     else
      Writeln('решений нет')
     else
  begin
   for i:=n downto 1 do
  begin
   s:=0;
   for j:=i+1 to m do
  begin
   s:=s+a[i,j]*x[j];
 end;
   x[i]:=(b[i]-s)/a[i,i];
 end;
   for i:=1 to n do
   Writeln('x[',i,']=',x[i]:5:1);
 end;
   readln;
 end.