Создать файл. Lazarus

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
 
  function prostoe (n: word) : boolean;
  var i: word;
  begin
    prostoe:= true;
    for i:=2 to n div 2 do
      if n mod i=0 then
      begin
        prostoe:= false;
        break;
      end;
  end;
 
var
  f:file of integer;
  i, n, a, sr, L : integer;
  s: string;
 
begin
 AssignFile(f, 'С:\lazarus2\abc.dat');
 rewrite(f);
 s:=InputBox('файлы', 'введите количество чисел','0');
 n:=StrToInt(s);
 for i:=1 to n do
 begin
   s:=InputBox('файлы','введите_число','0');
   a:=StrToInt(s);
   write(f, a);
 end;
 CloseFile(f);
 
 reset(f);
 n := 0; sr := 0; L := 0;
 while not eof( f ) and (n < 2) do
 begin
   read(f, i);
   if prostoe(i) then n:=n+1;
   if i > 0 then
   begin
   sr := sr + i;
   inc(L);
   end;
 end;
 if n < 2 then ShowMessage('в файле нет двух простых чисел')
 else if L = 0 then showmessage('до второго простого нет положительных чисел')
 else Label1.Caption := 'среднее = ' + FloatToStr(sr / L);
 closefile(f);
end;
end.