Безопасный ввод

[Noxil]

Помогите написать функцию, для организации безопасного ввода данных

type
 sorev = record
  fam,imya,stra: string;
  rez: integer;
end;
var
 a: array [1..5] of sorev;
 i,min: integer;
begin
 writeln('Введите данные о участниках:');
 for i:=1 to 5 do
 begin
 with a[i] do
  begin
   write('Фамилия: '); readln(fam);
   write('Имя: '); readln(imya);
   write('Страна: '); readln(stra);
   write('Результат: '); readln(rez);
  end;
   if a[min].rez>a[i].rez then min:=i;
 end;
writeln('Наименьший результат: ',a[min].imya,' ',a[min].fam,' ',a[min].stra,' ',a[min].rez);
readln;
end.

[Noxil]

Помогите, нужно проверить введенные данные, нет ли, например, среди фамилии цифр. Весь вечер сижу, ничего не выходит