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

End;

For i:=1 to 2 do

Begin

Writeln('Введите кординаты ',i,' точки прямоугольника');

Write('x='); ReadInt(RectangleAr[i].x);

Write('y='); ReadInt(RectangleAr[i].y);

End;

PrintHead;

PrintInData;

Writeln('Записать введённые данные в файлы входных данных?');

Writeln('(y - Да, n - Нет)');

Repeat

ch:=ReadKey;

Until ((ch='y') or (ch='n'));

if (ch='y') then

Begin

Assign(CircleFile,'circle.dat'); Rewrite(CircleFile);

Assign(RectangleFile,'rectangl.dat'); Rewrite(RectangleFile);

For i:=1 to n do

Write(CircleFile,CircleAr[i]);

size:=FileSize(CircleFile);

Writeln('Файл circle.dat перезаписан!!! Текущий размер ',size,' компонент.');

For i:=1 to 2 do

Write(RectangleFile,RectangleAr[i]);

Writeln('Файл rectangle.dat перезаписан!!!');

Close(RectangleFile); Close(CircleFile);

End;

End

else