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

label ExitFromCalc;

Const Nmax=100;

Type

CircleType = record

x : integer;

y : integer;

R : word

end;

RectangleType=record

x : integer;

y : integer;

end;

Var

CircleAr : array[1..Nmax] of CircleType;

CircleFile : file of CircleType;

RectangleAr : array[1..2] of RectangleType;

RectangleFile : file of RectangleType;

ResultFile : text;

n : word; {Кол-во окружностей для проверки}

i : byte; {параметр цикла}

S : byte; {счётчик пересечений окружностей с прямоугольником}

ch : char;

size : longint;

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

Procedure FrazaReadError(k:integer);

{ Сообщение о неправильном формате вводимого числа с подачей }

{ звукового сигнала }

Begin

If k<>0 then