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