Написать программу которая запрашивает целое число и выводит его на экране. если введённое число равно 13 заменить его на число 55

Program DZ;
var x : integer;
Begin
writeln("Ввели число");
if x = 13 then
begin
x := 55;
readln(x);
end;
else
writeln(x);
End;
end.