Programme Pascal Division

Bonsoir mes amis,

Je n'arrive pas à exécuter mon programme de division sur pascal, ou est l'erreur, je ne sais pas ?
SVP si vous pouvez m'aider :

Programme Division ;
var x,y,z : real ;
begin
writeln (‘Taper le numérateur x :‘);
readln (x) ;
writeln (‘Taper le dénominateur y :‘);
readln (y);
if (y !=0) then
begin
z : =x/y ;
read (z) ;
writeln (‘La division de x par y est :’, z) ;
end
else
begin
writeln (‘Erreur ! Le dénominateur doit être diffèrent de 0’) ;
end
end.