Числа Фибоначчи. (WHILE)

[RUSSTUDENT]

ВСЕМ ПРИВЕТ! СМОЖЕТ ЛИ КТО НИБУДЬ ПОМОЧЬ В "TURBO PASCAL 7"?

Вычислить число Фибоначчи с номером К. Напечатать чётные числа Фибоначчи, следующие за вычисленным, сумма которых не больше А. (А и К задаются)

[Namolem]

стучи в асю

[Codemaster_N1]

program fibo;

function F(const N: Longint): Longint;
begin
     if N <= 2 then F := 1
     else F := F(N - 1) + F(N - 2);
end;

var
   K, A, I, S, X: Longint;
begin
     WriteLn('Enter K:');
     ReadLn(K);
     WriteLn('Enter A:');
     ReadLn(A);
     WriteLn;
     WriteLn('F(', K, ') = ', F(K));
     WriteLn;
     I := K;
     S := 0;
     while True do
     begin
          Inc(I);
          X := F(I);
          if X mod 2 = 0 then
          begin
               S := S + X;
               if S > A then Break;
               Write(X, '  ');
          end;
     end;
     ReadLn;
end.

P. S. Для больших чисел длинную арифметику надо использовать.