Джентельмены удачи

var s1,s2,s3,s4,s5:string;
x,y:string;
i,j,n,n1,n2,k1,k2,n4:longint;
a,b:array[0..100] of string;
f:boolean;
begin
readln(s1);
s1:=s1+' ';
readln(s2);
s2:=s2+' ';
n1:=length(s1);
n2:=length(s2);
i:=1;
k1:=0;
k2:=0;
while i<=n1 do begin
s3:='';
while s1[i]<>' ' do begin
s3:=s3+s1[i];
inc(i);
end;
if s3<>'' then begin
inc(k1);
a[k1]:=s3;
end;
inc(i);
end;
i:=1;
while i<=n2 do begin
s3:='';
while s2[i]<>' ' do begin
s3:=s3+s2[i];
inc(i);
end;
if s3<>'' then begin
inc(k2);
b[k2]:=s3;
end;
inc(i);
end;
i:=1;
f:=false;
repeat
j:=1;
s4:=b[i];
n4:=length(s4);
while j<=k1 do begin
inc(i);
s5:=b[i];
if upcase(s4[n4])<>s5[1] then begin
f:=true;
if j+1>k1 then x:=a[1]
else
x:=a[j+1];
y:=b[i];
end
else
begin
s4:=s5;
n4:=length(s4);
end;
inc(j);
end;
until f=true;
write(x,' ',y);
end.

while (f=false) and (j<=k1) do begin

L:=0;
while (здесь условие или пока f не станет равно true или пока не переберем все города) do begin
// нужное нам значение L+1
... 
// если нужно следующее значение L то делаем так:
inc(L);
L:=L mod N;
...
end;
// здесь нужный нам бандит под номером L+1

function GetWord(src: string; var dst: string; var i: integer): boolean;
var
  j: integer;
begin
  GetWord:=false;
  while (i<=Length(src)) and (src[i]=' ') do inc(i);
  if i>Length(src) then Exit;
  j:=i;
  while (i<=Length(src)) and (src[i]<>' ') do inc(i);
  dst:=Copy(src,j,i-j);
  GetWord:=true;
end;
 
var
  b, t, w, w2: string;
  nb, nt, i: integer;
begin
  Assign(input,'input.txt'); Assign(output,'output.txt');
  Reset(input); Rewrite(output);
  ReadLn(b); ReadLn(t);
  nb:=0; i:=1;
  while GetWord(b,w,i) do inc(nb);
  i:=1; nt:=1; GetWord(t,w,i);
  while GetWord(t,w2,i) and (UpCase(w[Length(w)])=UpCase(w2[1])) do begin
    w:=w2; inc(nt);
  end;
  nt:=nt mod nb; i:=1;
  for nt:=nt downto 0 do GetWord(b,w,i);
  WriteLn(w,' ',w2);
end.