Составить команду из четырех лучших спортсменов для участия в эстафете 4x100; (через цикл for)

program labsw;
const nmax=100;
var a:array[1..nmax] of real;
n,i,j,k,m,imn,jmn,kmn,mm:integer;
s,mn:real;
begin
randomize;
repeat
write('количество бегунов 4 до',nmax,'n=');
read(n);
until n in [4..nmax];
writeln('результаты бегунов:');
for i:=1 to n do
begin
a[i]:=2*random+11;
write(a[i]:8:2);
end;
writeln;
mn:=a[1]+a[2]+a[3]+a[4];
imn:=1;jmn:=2;kmn:=3;mm:=4;
for i:=1 to n-3 do
for j:=i+1 to n-2 do
for k:=j+1 to n-1 do
for m:=k+1 to n do
if a[i]+a[j]+a[k]+a[m]<mn then
begin
mn:=a[i]+a[j]+a[k]+a[m];
imn:=i;
jmn:=j;
kmn:=k;
mm:=m;
end;
readln;
writeln('*номера лучших бегунов:');
writeln(imn,'  ',jmn,'  ',kmn,'  ',mm);
readln
end.

  b: array [1..nmax] of Integer;
  ti: Integer;
  tr: Real;

  for j:=1 to n do b[j]:=j;
  for i:=n downto 2 do for j:=2 to i do
    if a[j-1]>a[j] then begin
      ti:=b[j-1]; b[j-1]:=b[j]; b[j]:=ti;
      tr:=a[j-1]; a[j-1]:=a[j]; a[j]:=tr;
    end;
  WriteLn('Лучшие бегуны:');
  for j:=1 to 4 do WriteLn(b[j]:8,a[j]:8:2);
end.

  for i:=2 to 5 do for j:=n downto i do

const nn=4;
var
  a: array [1..nn+1] of Real;
  b: array [1..nn+1] of Integer;
  i, j, n, m, ti: Integer;
  tr: Real;
begin
  Randomize; {m:=0;}
  repeat
    Write('Количество бегунов (от ',nn,'): '); ReadLn(n);
  until n>=nn;
  WriteLn('Результаты: ');
  for i:=1 to n do begin
    if m<=nn then Inc(m);
    a[m]:=11+2*Random; b[m]:=i;
    Write(i:6,a[m]:10:4);
    for j:=m downto 2 do
      if a[j-1]>a[j] then begin
        tr:=a[j-1]; a[j-1]:=a[j]; a[j]:=tr;
        ti:=b[j-1]; b[j-1]:=b[j]; b[j]:=ti;
      end else Break;
  end; WriteLn;
  WriteLn('Лучшие ',nn,':');
  for i:=1 to nn do Write(b[i]:6,a[i]:10:4); WriteLn;
end.