оператор цикла в Паскале

Program fib;
Uses crt;
Var a,a1,a2,p,q,k,n:longint;
Begin
  Clrscr;
  a1:=1;
  a2:=1;
  p:=2;
  q:=1;
  n:=3;
  Gotoxy(10,10);
  Textcolor(yellow);
  Writeln('Нахождение n-ого числа Фибоначчи');
  Gotoxy(10,11);
  Write('Введите номер числа Фибоначчи: ');Readln(k);
  If (k=1) or (k=2) then writeln('n-ое число Фибоначчи = ',a1)
  else if k=3 then writeln('n-ое число Фибоначчи = ',a1+a2)
  else begin
         While k>n do
         begin
           a:=a1*p+a2*q;
           p:=p+q;
           q:=p-q;
           n:=n+1;
          end;
          Gotoxy(10,12);
          Writeln('n-ое число Фибоначчи = ',a);
        end;
  Readkey;
End.

uses crt;
var a1,a2,ak,e:real;
    k:integer;
begin
clrscr;
write('Введите точность e>0 e=');
readln(e);
a1:=1;
a2:=2;
ak:=(a1+2*a2)/3;
k:=3;
while abs(ak-a2)>=e do
 begin
  a1:=a2;
  a2:=ak;
  ak:=(a1+2*a2)/3;
  k:=k+1;
 end;
write('номер=',k,'  A(k-1)=',a2:0:5,'  Ak=',ak:0:5);
readln
end.