Как обозначить цифры?, Помогите плиз решить вопрос! Опции

[Lauri]

Люди, помогите плиз, скажите - как обозначить формат вводимых данных? (мне надо сделать так, чтобы можно было ввести только цифры, а при введении букв выводилось сообщение об ошибке) может надо использовать a:string, а потом работать со строкой? или case? Вот моя программа (для перевода чисел из десятичной системы в троично-симметричную)...

Program perevod;
uses crt;
var a:integer;
    d,i:byte;   
    mas:array [0..10] of shortint;
    f,g:boolean;

    Begin
    clrscr;
    writeln ('Vvedite chislo:     Exit - press 0');
    repeat
    readln(a);
    if (a<0) then g:=false
    else g:=true;
    d:=0;
    if (a=0) then halt;
       repeat
       i:=0;
       dec(a);
	  repeat
	  f:=true;
	  inc(mas[i]);
	  if (mas[i]=2) then
	      begin
	      mas[i]:=-1;
	      inc(i);
	      if (d<i) then d:=i;
	      f:=false;
	      end;
	  until f;
	  until (a=0);
	  for i:=d downto 0 do
	     begin
	     if g then write(mas[i]) else write(-mas[i]); 
              mas[i]:=0;
	     end;
	  writeln;
	  until (1<>1);
    end.

[Shura]

А вот, если что, процедура, которая осуществляет ввод значения (от -999999999 до 999999999) в глобальную переменную, и не дает пользователю даже ввести некорректные данные. Требует модуль Crt (используется функция ReadKey).

Код

Program Vvod;

Uses
Crt;

Var
a: LongInt;

Procedure GetNumber(var a: LongInt);
var
  s: String;
  ch: Char;
  error: Integer;
begin
  s:='';
  repeat
   ch:=ReadKey;
   case ord(ch) of
    45: if s = ''
    then begin
          s:='-';
          Write('-')
         end;
    48..57: if (length(s) - Pos('-',s) < 9)
        then begin
          s:=s+ch;
          Write(ch)
         end;
    8: begin
    GotoXY(WhereX-1,WhereY);
    Write(' ');
    GotoXY(WhereX-1,WhereY);
    Delete(s,length(s),1)
       end
   end {case}
  until (ch = #13);
  Val(s,a,error)
end;

{****************************************************************************}

Begin
ClrScr;
GetNumber(a);
WriteLn;
WriteLn('Vvedeno chislo: ', a);
ReadLn
End.