помогите

Вот. Нужно ввести кол-во чисел Фибоначчи которые нужно вывести. Так же есть простенькая проверка введённого числа.

program Fib;

var 

  n,i:integer;
  a,b,c:word;

begin

  repeat
    Write('Введите число от 1 до 25: ');
    Readln(n);
  until (n > 0) and (n < 25);
	
  a:=0;
  b:=1;
	
  for i:=1 to n do
    begin
      Write(a,' ');
      c:=a;
      a:=a+b;
      b:=c;
    end;
	  
  Readln;
	
end.