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

Button1: TButton;

Image1: TImage;

Image2: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Memo: TMemo;

procedure Form Create(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

N: integer;

result: boolean;

oskolok: array[1..3] of TPoint;

i: integer;

s: string;

OSX1,OSX2,OSY1,OSY2:integer;