Почему программа зависает?

var m,n,s,i,j,k,len,cnt,dx,dy:integer;
dirx,diry:array[0..4] of byte;
a:array[0..10000,0..10000] of char;
used:array [0..100,0..100] of integer;
dir:array [0..10000] of integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset (input);
rewrite (output);
  readln (input,m,n,s);
  for i:=1 to m do begin
    for j:=1 to n do
      read (input,a[i,j]);
    readln(input);  
   end;
   
   dirx[0]:=1;diry[1]:=0;
   dirx[1]:=0;diry[2]:=1;
   dirx[2]:=-1;diry[3]:=0;
   dirx[3]:=0;diry[4]:=-1;
   dx:=1;dy:=1;
   k:=0;cnt:=1;
  
  while cnt<s do begin
    if (a[dx+dirx[cnt],dy+diry[cnt]]='.') {and (dx+dirx[cnt]<n) and (dy,diry[cnt])} then 
    begin
      dx:=dx+dirx[k];
      dy:=dy+diry[k];
    end
    else begin
    while a[dy+dir[k],dx+dirx[k]]<>'.' do begin
      k:=k+1;
      k:=k mod 4;
      end;
     dx:=dx+dirx[k];
     dy:=dy+diry[k];
     end;
     dir[cnt]:=k;
     if used[dy,dx]=0 then used[dy,dx]:=cnt else
     if dir[used[dy,dx]]=dir[cnt] then begin
      len:=cnt-used[dy,dx];
      cnt:=cnt+((s-cnt) div len)*len;
      end
      else cnt:=cnt+1;
     end;
     writeln (output,dx,dy);
close (input);
close (output);
end.

a:array[0..10000,0..10000] of char;