Упорядочить строки вещественной матрицы по возрастанию их первых элементов.

PROGRAM PR_5;
USES CRT;
CONST
   N=7;
VAR
   A:ARRAY[1..N] OF LONGINT;
   I,MAX,MIN:LONGINT;
BEGIN
    WRITELN('VVEDITE MASSIV');
    FOR I:=1 TO N DO
      BEGIN
       WRITE('A[',I,']=');
       READ(A[I]);
      END;
      WRITELN;
      WRITELN('VVEDENII MASSIV IMEET VID');
    WRITE('A=(');
    FOR I:=1 TO N-1 DO
     WRITE(A[I],',');
     WRITE(A[N],')');
     MAX:=A[1];
     MIN:=A[1];
     FOR I:=2 TO N DO
     BEGIN
     IF A[I] > MAX THEN
     MAX:=A[I];
     IF A[I] < MIN THEN
     MIN:=A[I];
     END;
     WRITELN;
     WRITELN('MAXIMALNOE 4ISLO = ',MAX);
     WRITELN('MINIMALNOE 4ISLO =',MIN);
   READLN;
   READLN;
   END.

PROGRAM PR_5;
USES CRT;
CONST
   N=7;
VAR
   A:ARRAY[1..N] OF LONGINT;
   I,MAX,MIN,index1,index2:LONGINT;
BEGIN
    WRITELN('VVEDITE MASSIV');
    FOR I:=1 TO N DO
      BEGIN
       WRITE('A[',I,']=');
       READ(A[I]);
      END;
      WRITELN;
      WRITELN('VVEDENII MASSIV IMEET VID');
    WRITE('A=(');
    FOR I:=1 TO N-1 DO
     WRITE(A[I],',');
     WRITE(A[N],')');
     MAX:=A[1];
     MIN:=A[1];
     FOR I:=2 TO N DO
     BEGIN
     IF A[I] > MAX THEN
     begin
       MAX:=A[I];
       index1:=i;
     end;
     IF A[I] < MIN THEN
     begin
       MIN:=A[I];
       index2:=i;
     end;
     END;
     WRITELN;
     WRITELN('MAXIMALNOE 4ISLO = ',MAX,' ego nomer ',index1);
     WRITELN('MINIMALNOE 4ISLO =',MIN,' ego nomer ',index2);
   READLN;
   READLN;
   END.

PROGRAM PR_5;
USES CRT;
CONST
   N=7;
VAR
   A,b,ind:ARRAY[1..N] OF LONGINT;
   I,MAX,MIN,k,j,tmp:LONGINT;
BEGIN
    WRITELN('VVEDITE MASSIV');
    FOR I:=1 TO N DO
      BEGIN
       WRITE('A[',I,']=');
       READ(A[I]);
      END;
      WRITELN;
      WRITELN('VVEDENII MASSIV IMEET VID');
    WRITE('A=(');
    FOR I:=1 TO N-1 DO
     WRITE(A[I],',');
     WRITE(A[N],')');
     k:=0;
    for i:=1 to n do
    begin
      if a[i] mod 2 = 0 then
      begin
        k:=k+1;
        b[k]:=a[i];
        ind[k]:=i;
      end;
    end;
    writeln;
    for j:=1 to k-1 do
    for i:=1 to k-j do
    begin
      if b[i]>b[i+1] then
      begin
        tmp:=b[i];
        b[i]:=b[i+1];
        b[i+1]:=tmp;
      end;
    end;
    writeln('массив четных элементов по возрастанию');
    for i:=1 to k do
    write(b[i]:4);
    writeln;
    writeln('массив номеров этих элементов');
    for i:=1 to k do
    write(ind[i]:4);
    readln;
   READLN;
   END.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,l:byte;
    b:real;
begin
clrscr;
randomize;
write('Количество строк n=');
readln(n);
write('Количество столбцов m=');
readln(m);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
{перестановка строк по возрастанию элементов первого столбца)}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,1]>a[l,1] then
for j:=1 to m do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по возрастанию первых элементов:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.