Найти номер рынка, где цена земляники минимальна, если человек не хочет идти до рынка, удаленного от дома на расстояние большее, чем R

Program Pr4;
const
  R=5;
var
  rr,c:array [0..20] of integer;
  i,n,min,imin:integer;
begin
write ('Количество рынков: ');
read (n);
for i:=1 to n do
  begin
    write ('Расстояние от ', i, '-го рынка до дома: ');
    read (rr[i]);
    write ('Цена земляники на этом рынке: ');
    read (c[i]);
  end;
min:=maxint;
for i:= 1 to n do
  begin
    if (c[i]<min) and (rr[i]<=R) then
      min:=c[i];
      imin:=i;
  end;
writeln (min, ' ', imin)
end.

Program Pr4;
uses crt;
  type rinok = record
  price:integer; s:integer;
  end;
const R=5;
var
  c:array [0..20] of rinok;
  i,n,min,imin,k:integer;
begin
write ('Êîëè÷åñòâî ðûíêîâ: ');
readln(n);
    for i:=1 to n do begin
    write ('Ðàññòîÿíèå îò ', i, '-ãî ðûíêà äî äîìà: '); readln(c[i].s);
    write ('Öåíà çåìëÿíèêè íà ýòîì ðûíêå: '); readln(c[i].price);
    end;
min:=c[1].price;
k:=0;
     for i:= 2 to n do begin
     if (c[i].price<min) and (c[i].s<=R) and (k=0) then begin
     min:=c[i].price; imin:=i; inc(k);
     end; end;
 
writeln ('Èñêîìàÿ öåíà ',min,' íà ', imin,' ðûíêå')
end.