Помогите проверку ввода сделать

[Panda]

Вот программа:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
grad=57.2958;
rad= 0.0174533;
Var
R, G, v,n,l: integer;
 resh: real;
begin
writeln('1-gradusbI v radianbI');
writeln('2-radianbI v gradusbI');
  write ('Vash vybor - ');

readln(v);
   case v of
    1: begin
  write ('G=');
   readln(G);
 resh:=rad*G;
write('otvet= ' ,resh:4:2);
  readln;
  end;
  2: begin
  write  ('R=');
   readln(R);
 resh:=grad*R;
write('otvet= ' ,resh:4:2);
readln;
end;
end;
end.

Должны вводиться только цифры, если ввести буквы должно выдаваться сообщение об ошибке, но программа не должна вылетать, а осуществлять ввод дальше.
Заранее спасибо!!!

[Stilet]

Ну способов несколько есть, но вот например из лабораторок:

repeat
 readln(sv);
 val(sv,v,err);
 if err<>0 then writeln('Это не число, давай еще раз');
until err=0;

Здесь sv - строка;

[Panda]

Сообщение от Stilet

Ну способов несколько есть, но вот например из лабораторок:

repeat
 readln(sv);
 val(sv,v,err);
 if err<>0 then writeln('Это не число, давай еще раз');
until err=0;

Здесь sv - строка;

Незнаешь как через прцедуру сделать?

[knight]

function gettext: integer;
begin
   repeat  
    readln(sv);  
    val(sv,v,err);  
    if err<>0 then writeln('Это не число, давай еще раз');  
   until err=0;  
  return v;
end;