Build
  [Warning] u2_4.pas(56): Variable 'filestream' might not have been initialized
  [Hint] u2_4.pas(34): Variable 'f' is declared but never used in 'TForm1.Button1Click'

unit u2_4;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxN=100;
var
  n: integer;
  f: file of integer;
  y: integer;
  fname: string;
  v: array[1..MaxN] of integer;
  i: integer;
  s: string;
  filestream: TFileStream;
begin
  // ???????? ???????
  randomize;
  n:= 20;
  s:='';
  for i:= 1 to n do
    v[i] := random(101);

  // ?????? ? ????
  fname := 'f.dat';

  //AssignFile(f,fname);
  try
  filestream := TFileStream.Create(fname,fmCreate);

  //rewrite(f);
  for i:= 1 to n do
    if (v[i] mod 3=0) and (v[i] mod 7<>0) then
     // write(f, v[i]);
  begin
     filestream.Write(v[i], SizeOf(integer));
     end;


finally
  //closeFile(f);
  filestream.Free;
   end;

  // ?????? ???????
  s:= 'Массив'+ #13#10;
  Memo1.Clear;
  for i:= 1 to n do
    begin
      s:= s + IntToStr(v[i])+#9;
      if i mod 10 = 0 then
        s:=s+#13#10;
    end; { for }
  s:= s+#13#10;

  s:= s+'файл '+ fname+#13#10;
//  reset(f);
    try
   filestream := TFileStream.Create(fname,fmOpenRead);
  i:= 1;

  s:= s + результат'+#13#10;
  while (filestream.Position <> filestream.Size)  do
    begin
 //     read(f,y);
       filestream.Read(y,SizeOf(integer));
      s:= s + IntToStr(y)+#9;
      if i mod 10 = 0 then
        s:=s+#13#10;
      inc(i);
    end; { for }
    finally
//  closeFile(f);
   filestream.Free;
   end;

  Memo1.Lines.Add(s);
end;

end.

unit u2_4;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxN=100;
var
  n: integer;
  y: integer;
  fname: string;
  v: array[1..MaxN] of integer;
  i: integer;
  s: string;
  filestream: TFileStream;
begin
  // Создание массива
  randomize;
  n:= random(100)+1;
  for i:= 1 to n do
    v[i] := random(101)-50;

  // Запись в файл
  fname := 'f.dat';
  try
    filestream := TFileStream.Create(fname,fmCreate);
    for i:= 1 to n do
      if (v[i] mod 3=0) and (v[i] mod 7<>0) then
        filestream.Write(v[i], SizeOf(integer));
  finally
    filestream.Free;
  end;

  // Печать массива
  s:= 'Массив'+ #13#10;
  Memo1.Clear;
  for i:= 1 to n do
    begin
      s:= s + IntToStr(v[i])+#9;
      if i mod 6 = 0 then
        s:=s+#13#10;
    end; { for }
  s:= s+#13#10;
  s:= s+'Файл '+ fname+#13#10;

  try
    filestream := TFileStream.Create(fname,fmOpenRead);
    i:= 1;
    s:= s + 'результат'+#13#10;
    while (filestream.Position <> filestream.Size)  do
      begin
        filestream.Read(y,SizeOf(integer));
        s:= s + IntToStr(y)+#9;
        if i mod 10 = 0 then
          s:=s+#13#10;
        inc(i);
      end; { while }
  finally
    filestream.Free;
  end;
  Memo1.Lines.Add(s);
end;

end.

unit u2_4;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  MaxN=100;
var
  n: integer;
  y: integer;
  fname: string;
  v: array[1..MaxN] of integer;
  i: integer;
  s: string;
  filestream: TFileStream;
begin
  // Создание массива
  randomize;
  n:= random(100)+1;
  for i:= 1 to n do
    v[i] := random(101)-50;

  // Запись в файл
  fname := 'f.dat';
  try
    filestream := TFileStream.Create(fname,fmCreate);
    for i:= 1 to n do
      if (v[i] mod 3=0) and (v[i] mod 7<>0) then
        filestream.Write(v[i], SizeOf(integer));
  finally
    filestream.Free;
  end;

  // Печать массива
  s:= 'Массив'+ #13#10;
  Memo1.Clear;
  for i:= 1 to n do
    begin
      s:= s + IntToStr(v[i])+#9;
      if i mod 6 = 0 then
        s:=s+#13#10;
    end; { for }
  s:= s+#13#10;
  s:= s+'Файл '+ fname+#13#10;

  try
    filestream := TFileStream.Create(fname,fmOpenRead);
    i:= 1;
    s:= s + 'результат'+#13#10;
    while (filestream.Position <> filestream.Size)  do
      begin
        filestream.Read(y,SizeOf(integer));
        s:= s + IntToStr(y)+#9;
        if i mod 10 = 0 then
          s:=s+#13#10;
        inc(i);
      end; { while }
  finally
    filestream.Free;
  end;
  Memo1.Lines.Add(s);
end;

end.

implementation

{$R *.dfm}
// проба строки шрифт courier new  cyr
end.

implementation

{$R *.dfm}
// проба строки шрифт courier new
end.