Доработка WHILE

[RUSSTUDENT]

Всем привет. Программа с WHILE. Тоже доработать надо. Сможете помочь?
Задание:"Вычислить число Фибоначчи с номером К. Напечатать чётные числа Фибоначчи, следующие за вычисленным, сумма которых не больше А. (А и Кзадаются)".

Прога вычисляет все числа разом до А, но как вычислить число с номером К не знаю. а также вычисляет все четные числа до А, а не только тех, которые стоят после числа с номером К.

program fwhile;
  var f1, f2, f, k, s:integer;
      a: real;
begin
  f1:= 1;
  f2:= 1;
  writeln('введите номер числа* k');
  readln(k);
  writeln('введите число а');
  readln(a);
  writeln('1 элемент:',f1);
  writeln('2 элемент:',f2);
  k:= 2;
  s:= 0;
  while s<a do
    begin
      inc(k);
      f:= f1 + f2;
      f1:= f2;
      f2:= f;
      if f mod 2 =0 then
      begin
        s:= s + f;
        if s > a then break;
        writeln(f,',');
      end;
    end;
    readln
end.

[Hacker19_90]

нда скажу я вам
пробуй так

j := 0;
s := 0;
while s<a do
begin
inc(j);
f:= f1 + f2;
f1:= f2;
f2:= f;
if j >= k then begin
if f mod 2 =0 then
begin
s:= s + f;
if s > a then break
else
writeln(f,',');
end;
end;
end;

[chesser]

Вот функция вычисления числа Фибоначчи. Правда, отрицательные номера не вычисляет.

function fib(k: integer): integer;
var
 i, r: integer;
 a1, a2: integer;
begin
 r:=0;
 if k>2 then
  begin
   i:=3;
   a1:=1;
   a2:=2;
   while i<=k do
    begin
     r:=a1+a2;
     a1:=a2;
     a2:=r;
     i:=i+1;
    end;
  end
 else
  if (k=1) or (k=2) then
   r:=1;
 fib:=r;
end;

[RUSSTUDENT]

Огромное спасибо за помощь!