Kontrola wpisywanych zmiennych

Witam,
Mam pytanie: co zrobić, aby przy wpisaniu przez operatora czegoś innego niż liczba(np znak, słowo) wyskoczył komunikat proszący o podanie wartości jeszcze raz? chodzi o to aby program się "nie wykładał" przy podaniu np słowa do zmiennej integer

program test;
var
 sLiczba: string;
 Liczba: Integer;
 Error: Integer;
begin
  repeat
    Write('Podaj Liczbe: ');
    Readln(sLiczba);
    Val(sLiczba, Liczba, Error);
    if (Error > 0) then
      Write('To nie jest liczba. ');
  until Error = 0;
  {dalsza czesc programu}
end.