Процедура контроля вводимых данных

[Joker_vad]

Здравствуйте. Есть проблема Нужен контроль вводимых данных.
procedure cont(str:string;var zn:integer);
var flg:boolean;
begin
repeat
flg:=true;
write(str);
{$i-}
readln(zn);
{$i+}
if (IOresult<>0) or (zn<=0) then begin
Textattr:=(16*4+0);
writeln('Введено неверное значение');
Textattr:=(16*0+8);
flg:=false;
end;
until flg;
вот что есть. Проблема в том что, проверять можно только переменные одного типа в данном случае integer, а для другого например real нужно писать процедуру еще одну, мне кажется это не верным. Вот. Может кто нибудь подскажет как сделать так чтобы все было в одной процедуре.

[evg_m]

Нужен контроль вводимых данных.
Проблема в том что, проверять можно только переменные одного типа в данном случае integer, а для другого например real нужно писать процедуру еще одну,

Данные вводятся не просто так, а имеют конкретный (внепрограммный) смысл,
например:
число этажей в доме
число квартир на этаже
число квартир в подъезде
И все это целые числа но вот допустимые значения у них будут разные.
Еще пример количество карт в колоде (опять целое но уже совсем другие значения).

Смысл понятен?
Проверяется не абстрактная величина, а соответствие введенного значения заданным в TЗ или определенным тобой параметрам, ограничениям, условиям и поэтому универсальным быть не может, иначе бы давно написали функцию IsValid(...)" boolean;

[Joker_vad]

вводятся цена и количество в данной задаче. И проверять их нужно на то чтобы не была введена буква, грубо говоря и отрицательное значение.