Pascal Sorusu 2

Arkadaşlar aşağıdaki programı bir de siz çalıştırıp hataların nerelerden kaynaklandığını burada bildirirseniz çok teşekkür ederim

Program HATA2;

VAR
i:integer; Top,A:real;

BEGIN

        i:=0;Top:=0;A:=1;
           repeat
           i:=i+1; A:=A/i;Top:=Top+A; writeln(i,'>>>',Top);
                until (Top=Top+A); {olur mu hi‡}
                readln;
END.