Kundenzátor

Évike! Itt vannak a házik:

program sorozat;
uses crt;
var a,b:array[1..100] of integer;
    i,n:integer;
begin
   clrscr;
   write('Mekkorák legyenek a számsorozatok? ');
   repeat
      readln(n);
      if n<1 then
         write('Hibás érték. Kérem adja meg mégegyszer: ');
   until n>0;
   writeln('Az "a" sorozat beolvasása');
   for i:=1 to n do
      begin
      write('Kérem az "a" sorozat ',i,'. elemét: ');
      readln(a[i]);
      end;
   writeln('A "b" sorozat beolvasása');
   for i:=1 to n do
      begin
      write('Kérem a "b" sorozat ',i,'. elemét: ');
      readln(b[i]);
      end;
   clrscr;
   writeln('A következő indexek esetén a[i]<=b[i]: ');
   for i:=1 to n do
       if a[i]<=b[i] then
          writeln(i,'.   ',a[i],'<=',b[i]);
   readln;
end.

program fibonacci;
uses crt;
var f:array[1..100] of longint;
    i,n:longint;
begin
   clrscr;
   f[1]:=1;
   f[2]:=1;
   write('Mekkora legyen a vizsgálati határérték? ');
   repeat
      readln(n);
      if n<1 then
         write('Hibás érték. Kérem adja meg újból: ');
   until n>0;
   for i:=1 to 2 do
      writeln(i,'.: ',f[i]);
   while f[i]<n do
      begin
      inc(i);
      f[i]:=f[i-1]+f[i-2];
      if f[i]<n then
         writeln(i,'.: ',f[i]);
      end;
   readln;
end.
 

A második program utolsó (elöltesztelős) while-do ciklusába nem tudtam értelmi feltételt adni így késő este, így egy if teszterrel oldottam meg a vizsgálati határérték betartását. Ha (esetleg) eszedbe jut valami jobb (úgyse...), akkor javítsd ki.