Лабораторная работа: Разработка форматов хранения данных программы. Структурирование

Writeln(#7'Неправильный формат числа');

Writeln('Повторите ввод');

End;

End { FrazaReadError };

{ ------------------------------------------------------------ }

Procedure ReadWord(Var Number:word);

{ Ввод с клавиатуры и проверка формата переменной типа word}

Var k : word;

Begin

Repeat

{$I-} Read(Number); {$I+}

k:=IOResult;

FrazaReadError(k);

Until k=0;

End { ReadWord };

{ ------------------------------------------------------------ }

Procedure ReadInt(Var Number:integer);

{ Ввод с клавиатуры и проверка формата переменной типа integer }

Var k : integer;

Begin

Repeat

{$I-} Read(Number); {$I+}

k:=IOResult;

FrazaReadError(k);

Until k=0;

End { ReadInt };

{ ------------------------------------------------------------ }

Procedure PrintInData;

Var i : byte;