Мать спрашивает свою матушку ( а мою бабушку ): «Где Катеринушка?» ошибки оформления

Мать спрашивает свою матушку, а мою бабушку, - «Где Катеринушка?»

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.