Сортировка строки

      const n=100;
      var X:array[1..n] of real;
      i:integer;
      max:real;
      begin
      for i:=1 to n do
      begin
      writeln('Введите X[',i,']');
      readln(X[i]);
      end;
      max:=X[1];
      for i:=1 to n do
      if max<X[i] then max:=X[i];
      writeln('Максимальный элемент массива',max);
      end.

Uses
 CRT;
Const
 nmax=40;
var
 a:array[1..nmax,1..nmax] of integer;
 i,j,imax,jmax,n,m,buf,j2:integer;
Begin
repeat
 Write('Vvedite kol-vo strok: ');
 Readln(n);
until n in [1..nmax];
repeat
 Write('Vvedite kol-vo stolbcov: ');
 Readln(m);
until m in [1..nmax];
imax:=1;
jmax:=1;
randomize;
for i:= 1 to n do
 begin
  for j:=  1 to m do
   begin
    a[i,j]:=random(10)-3;
    write(a[i,j]:3);
    if a[i,j] > a[imax,jmax] then
    begin
     imax:= i;
     jmax:= j
    end
   end;
  writeln
 end;
writeln;
Writeln('MAX[',imax,';',jmax,']:=',a[imax,jmax]);
for i:=1 to n do
for j:=1 to m-1 do
for j2:=j+1 to m do
if a[imax,j]>a[imax,j2] then
 begin
  buf:=a[imax,j];
  a[imax,j]:=a[imax,j2];
  a[imax,j2]:=buf
 end;
writeln;
for i:= 1 to n do
 begin
  for j:=  1 to m do
    write(a[i,j]:3);
  writeln
 end;
writeln;
Readln
End.