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

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.