Выбрать четырех победителей с наилучшими результатами

program olimpic;
uses crt;
var i,j,k,s,min,kol:integer;
m:array[1..20] of integer;
n:array[1..20,1..2] of integer;
label L;
begin clrscr;
   writeln('Введите количество учасников: ');
   readln(kol);  
  for i:=1 to kol do
    begin
      writeln('Введите результат ',i,' учасника: ');
      readln(min);
      n[i]:=min;
    end;
  s:=1;
  for i:=1 to kol do
    begin
      if m[i]=0 then goto L;
      min:=m[i];    //здесь ошыбка как ее исправит
      k:=i;
        for j:=1 to kol do
          if (m[j]<min)and (m[j]<>0) then
            begin
              min:=m[j];  //здесь тожезамое
              k:=j;
            end;
    n[s,1]:=min;  //здесь по анологии и внизу тоже
    n[s,2]:=k;    
    m[k]:=0; 
    s:=s+1;
    L: end;
    for i:=1 to kol do
      writeln(n[i,1],'    ',n[i,2]);
      readln;
end.

program olimpic;
uses crt;
var n,m:array[1..20] of integer;
    kol,i,j,x:integer;
begin
repeat
write('Введите количество учасников от 4 до 20 kol=');
readln(kol);
until kol in [4..20];
for i:=1 to kol do
 begin
  n[i]:=i;
  write('Введите результат ',i,' учасника: ');
  readln(m[i]);
 end;
for i:=1 to kol-1 do
for j:=i+1 to kol do
if m[i]>m[j] then
 begin
  x:=m[i];
  m[i]:=m[j];
  m[j]:=x;
  x:=n[i];
  n[i]:=n[j];
  n[j]:=x
 end;
writeln('Первые 4 лучших');
for i:=1 to 4 do
writeln(m[i],'   ',n[i]);
end.