Контрольная работа: Анализ входного файла программы и вывод результатов в выходной файл

,'Ошибка',MB_OK+MB_ICONError); // Выводим сообщение об ошибке

Button1.Enabled:=False; //Блокируемкнопку

exit;

end;

end;

{Создаём оси паралельности}

{Ось паралельности ОХ1 по левой стороне стола}

If (oskolok[1].X = oskolok[2].X) then begin

If (oskolok[3].X>oskolok[1].X) then begin

xx:=xx+1;

end;

end;

If (oskolok[2].X = oskolok[3].X) then begin

If (oskolok[1].X>oskolok[1].X) then begin

xx:=xx+1;

end;

end;

If (oskolok[1].X = oskolok[3].X) then begin

If (oskolok[2].X>oskolok[1].X) then begin

xx:=xx+1;

end;

end;

{Ось паралельности ОХ2 по правой стороне стола}

If (oskolok[1].X = oskolok[2].X) then begin

If (oskolok[3].X<oskolok[1].X) then begin

xx:=xx+1;

end;

end;

If (oskolok[2].X = oskolok[3].X) then begin