Файлы.Выдает ошибку [Delphi]

[MariaD]

Создать файл f, содержащий сведения о веществах: название вещества, его удельный вес, проводимость (проводник, полупроводник, изолятор). С помощью другой программы выбрать из этого файла данные о проводниках и сохранить их в другом файле.

Данные заношу в мемо.файлы сохраняются и записываются. там где совершается проверка проводник ли выдает ошибку.

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

r=record
v:string[15];
u:integer;
p:string[15];
end;

Var
Form3: TForm3;
r1:r;
s:string;
i:integer;


implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
 var
 f1:file of r;
 f:textfile;

begin
Assignfile(f1,'f1');
Assignfile(f,'f.txt');
rewrite(f);
rewrite(f1);

For i:=1 to Memo1.Lines.Count-1 do begin
r1.v:=Memo1.Lines[i];
r1.u:=StrToInt(Memo2.Lines[i]);
r1.p:=Memo3.Lines[i];
Memo4.Lines.Add(r1.v + ' '+  IntToStr(r1.u)+' '+ r1.p);
Write(f1,r1);
Writeln(f,r1.v:10,r1.u:8,r1.p:10);
end;
Closefile(f1);
Closefile(f);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form3.Close;
Form1.Close;
end;

procedure TForm3.Button2Click(Sender: TObject);
 var
 f1:file of r;
 f:textfile;
begin
Assignfile(f1,'f1');
Assignfile(f,'g.txt');
Reset(f);
rewrite(f);
While not eof(f1) do begin
Read(f1,r1);

If r1.p = "проводник" then
Writeln(f,r1.v:10,r1.u:8,r1.p:10);
end;
 CloseFile(f);
 CloseFile(f1);
end;

end.

[eoln]

Файл f1 не открыт

Reset(f);
rewrite(f);
While not eof(f1) do begin

[MariaD]

все равно ошибку выдает

[eoln]

Кавычки одинарные

"проводник"

[MariaD]

спасибо,заработало