Pomoć za đaka trećaka !!!! (prvaka-zabaviste-obdaniste) !!!

Treba mi pomoc da postavim kontrole koje će korisnika upozoravati i vraćati na ponovni unos, ako je isti umesto broja uneo karakter ili ako je uneti broj manji od nule, (nulu moze da unese). Ako je neko voljan neka dopise na ovaj kod sto jednostavnije resenje !!!!!

program troskovi;
uses crt;
Label Return;
var x:real;
begin
return:Clrscr;
writeln('unesi iznos dugovanja');
readln(x);
goto return;
end.

Unapred zahvalan !!!!!

Ljudi mislio sam da je ovo nesto elementarno, izgleda sam se malo zeznuo ?????

Kontrola unosa, tako logično deluje !!!!!!!!!!!!!!!!!!!!!!