Помогите пожалуйста

[WhyBeNormal]

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

[alex_fcsm]

через директиву компилятору {I-}

[WhyBeNormal]

Я недавно начал изучать паскаль. Такие вещи я еще не знаю ... Мне будет проще, если Вы напишите текст программы. Спасибо.

[alex_fcsm]

Почитай хелп Pascal

uses crt;
var i:integer;
begin
clrscr;
writeln('Input number');
{$I-}
readln(i);
if IORESULT<>0 then writeln('Error')
   else writeln(i);
{$I+}
end.

[WhyBeNormal]

У меня почему-то не получается ...
http://slil.ru/26366832 - вот моя программа, без проверки.