Помогите, Turbo pascal, error 85, «;»expected

Помогите, Turbo pascal, error 85, ";"expected...
Program Pcz;
Var x,cz,necz:integer;
e:boolean;
Begin
cz:=0;
necz:=0;
e:=false;
While e=false do begin
write ('Napiszyce czisla:');Read(x);
If not Eof then begin
If x mod 2=0 then
cz:=cz+1
else necz:=necz+1;
end
Writeln ('Kalicziastva cziotnyh czisial=',cz);
Writeln ('Kalicziastva niacziotnyh czisial=',necz);
End.

  • чё
  • вроде так
    Program Pcz;
    Var x,cz,necz:integer;
    e:boolean;
    Begin
    cz:=0;
    necz:=0;
    e:=false;
    While e=false do begin
    write ('Napiszyce czisla:');Read(x);
    If not Eof then begin
    If x mod 2=0 then
    cz:=cz+1;
    else necz:=necz+1;
    end
    Writeln ('Kalicziastva cziotnyh czisial=',cz);
    Writeln ('Kalicziastva niacziotnyh czisial=',necz);
    End.