Проверка правильности ввода.

[Whiplash]

Доброго времени суток.
Существует следующая процедура.
Хотелось бы реализовать следующую задачу:
передавая параметры строкого либо целочисленного типа осуществить
проверку ввода...

procedure WriteXY(Var S);
Var S1: String Absolute S;
    Z: Byte;
    Code: Integer;
begin
  {$I-}
  Val(S1,Z,Code);
  {$I+}
  if Code <> 0 then
    Write(S1)
  else
    Write(Z);
end;

[Arigato]

Что за проверка требуется, не ясно?

{$I-}
  Val(S1,Z,Code);
  {$I+}

Комментарий компилятора $I отвечает за отключение проверки ошибок ввода-вывода, а не вообще ошибок. Эта конструкция тут явно лишняя.

[Whiplash]

Параметру S я присваиваю либо значение строкового типа, либо целочисленного.
Все правильно работает если передаваемый пар-р строка,
но, если я передаю число, то оно "обрубается" непонятным мне образом.

[Arigato]

Хорошо, зайдем с другого конца. Что Вы хотите получить в конечном итоге?
Ваша процедура реализована, мягко говоря, не красиво. Может есть другое решение.

[Whiplash]

В итоге я хочу получить либо строку, либо целое число, которые являлись передаваемыми параметрами.

[Arigato]

Процедуре Write и так без разницы, строковый или числовой параметр передан. Проще стразу вызывать Write, а не эту Вашу процедуру.

[Whiplash]

Просто моя задача на самом деле немного сложнее.
Спасибо за помощь
Не буду зря мучиться))