Finalization

CloseFile(FA);

CloseFile(FB);

Полный текст модуля формы приведен ниже.

unit Uni5;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var

Form1: TForm1;

S:String;

X,Y:Real;

FA,FB:TextFile;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin