Чтение из файла происходит в бесконечном цикле

Const
x=3;
Var
A:Array[1..x,1..x] of ShortInt;
i,n,k:ShortInt;
p:String;
l:boolean;
Begin
l:=false;
while l=false do begin
Read(p);
if (p='1') And (A[1,1]=0) then begin A[1,1]:=1; l:=true; end else
if (p='2') And (A[2,1]=0) then begin A[2,1]:=1; l:=true; end else
if (p='3') And (A[3,1]=0) then begin A[3,1]:=1; l:=true; end else
if (p='4') And (A[1,2]=0) then begin A[1,2]:=1; l:=true; end else
if (p='5') And (A[2,2]=0) then begin A[2,2]:=1; l:=true; end else
if (p='6') And (A[3,2]=0) then begin A[3,2]:=1; l:=true; end else
if (p='7') And (A[1,3]=0) then begin A[1,3]:=1; l:=true; end else
if (p='8') And (A[2,3]=0) then begin A[2,3]:=1; l:=true; end else
if (p='9') And (A[3,3]=0) then begin A[3,3]:=1; l:=true; end else Writeln('Данная клетка занята или ее не существуeт. Попробуйте выбрать другую.');
end;

      ReadLn(p);
      if (p.Length=1) and ('123456789'.IndexOf(p)>-1) then
        begin
          var index:='123456789'.IndexOf(p);
          var(row,col):=((index mod 3) + 1, (index div 3) + 1);
          WriteLn('A[', row, ',', col, ']');
          if A[row,col] = 0 then
            (A[row,col], l) := (1, True);
        end
      else
        Writeln('Данная клетка занята или ее не существуeт. Попробуйте выбрать другую.');

. . . . . .
type XY = record x,y : Integer; end;
const coords : array ['1'..'9'] of XY = ((x:1;y:1),(x:2;y:1),(x:3;y:1),(x:1;y:2),(x:2;y:2),(x:3;y:2),(x:1;y:3),(x:2;y:3),(x:3;y:3));
. . . . . .
      if (p.Length=1) and ('123456789'.IndexOf(p)>-1) and (A[coords[p[1]].x,coords[p[1]].y] = 0) then
        (A[coords[p[1]].x,coords[p[1]].y], l) := (1, True)
      else
        Writeln('Данная клетка занята или ее не существуeт. Попробуйте выбрать другую.');
. . . . . .