Задача на Делфи

[evrey]

Помогите исправит шибку в програме.
Текст программы.Записать в файл последовательного доступа n целых чисел, полученных
с помощью генератора случайных чисел.Найти количество квадратов не четных чисел среди компонентов.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

    SaveDialog1: TSaveDialog;
    Button3: TButton;
    Memo1: TMemo;
    Label8: TLabel;
    Label5: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:text;
  FileNameT:string;
   a,k,n:integer;

implementation

{$R *.dfm}




procedure TForm1.FormCreate(Sender: TObject);
begin
Button3.Enabled:=False;
Form1.Caption:='Текстовые файлы';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
If SaveDialog1.Execute then
begin
FileNameT:=SaveDialog1.FileName;
rewrite(f);
Memo1.Lines.SaveToFile(FileNameT);
closefile(f);
end;
Button3.Enabled:=True;
Application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
a:integer;
begin
randomize;
n:=strtoint(InputBox('','Введите количество элементов в файле',''));
rewrite(f);
for i:=1 to n do
begin
a:=random(65);
memo1.Lines.add(floattostrf(a,fffixed,4,1));
writeln(f,a);
end;
closeFile(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,a);
if (sqr(trunc(sqrt(a)))=a) and (trunc(sqrt(a)) mod 2<>0)
then begin  k:=k+1; writeln(a); end;
end;
label5.Caption:=floattostrf(k,fffixed,1,1);
closeFile(f);
end;

procedure TForm1.Label8Click(Sender: TObject);
begin
If SaveDialog1.Execute then
begin
FileNameT:=SaveDialog1.FileName;
assignfile(f,FileNameT);
rewrite(f);
closefile(f);
Button3.Enabled:=True;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
end.

[alexBlack]

перед rewrite и reset нужно делать assignfile

[eoln]

if (sqr(trunc(sqrt(a)))=a) and (trunc(sqrt(a)) mod 2<>0)
then begin k:=k+1; writeln(a); end;

writeln(a) - эт зачем (выводи как-нибудь подругому, в новый мемо или так application.MessageBox(pchar(floatt ostr(a)),'',0)

procedure TForm1.FormCreate(Sender: TObject);
begin
Button3.Enabled:=False;
Form1.Caption:='Текстовые файлы';
end;

Button3.Enabled:=False; - тоже лишнее

[Stilet]

evrey

Вопрос: А почему нахождение количества квадратов не делать сразу при генерации чисел?