Pascalban hogy kell ilyen hibakódot írni?

program kitalalos;

uses

crt, sysutils;

var

x,y,p:integer;

begin

randomize;

y:=random(1000)+1;

write('Gondoltam egy számra 0 és 1000 között. Melyik az a szám?');

repeat

read(x);

if x<0 then writeln('A szám 0 és 1000 között van')

else if x>1000 then writeln('A szám 0 és 1000 között van')

else if x<y then writeln('A szám amire gondoltam nagyobb.')

else if x>y then writeln('A szám amire gondoltam kisebb.');

inc(p);

until x=y;

writeln('Gratulálok, ',p,'. próbálkozásra sikerült kitalálnod!');

readkey;

end.

H elindítom és beírok egy betűt akkor crashel. Hogy kell rá írni valamilyen hibaüzenetet? Próbálkoztam már a string átalakítással azért van benne a sysutils de nem jutottam messze. A lényeg az lenne ha stringet érzékel a program akkor írja ki hogy szám kell nem betű.