Pascal Sorusu 1

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 HATA1;

VAR
i:integer; Toplam,kesir:real;

BEGIN

        while true do
          begin
          i:=0;Toplam:=0;
          writeln;write('Bir kesir giriniz: ');readln(kesir);

                 repeat
                 i:=i+1; Toplam:=Toplam+kesir; writeln(i,'>>>',Toplam);
                 until (Toplam<>i*kesir) {olur mu hi‡} or (i>99);
                 readln;

          end;

END.