Написать программу для ввода значения величины x целого типа, присваивания величине y действительного типа значения 5.5 , вычисления значения величины z=x-y и вывода значения величины z. протестировать алгоритм для x=5.5, x=0, x=-10.2

Program fofgogjoj;
var
x:integer;
y,zreal;
begin
Writeln('x=');
Readln(x);
y:=5.5;
z:=x-y;
Writeln('z=',z);
end.

X=5.5,  - ошибка 
 X=0,    -    z=-5.5
 X=-10.2    -   ошибка