Не записывает данные в файл. Delphi

[Эффект массы]

Должен считать текст из f1 и записать результат вычисления в f2. Файл всегда пустой. Программка :Arquivo do WinRAR.rar

procedure TForm1.Button1Click(Sender: TObject);
Var
i,l,r,x: Integer;

begin
s2:='';
s:='';
r:=1;
l:=0;
q:=combobox1.text;
q:=q+' ';
if (q='') then MessageDlg( 'Нет данных', mtInformation, [mbOk], 0)
else
begin
i:=1;
while i<=Length(q) do
begin
s:='';
while q[i]<>' ' do
begin
  s:=s+q[i];
  inc(i);
end;
if length(s) mod 2 <> 0 then
s2:=s2+' '+s;
i:=i+1;
end;
end;
Label3.Caption:=(s2);
end;


procedure TForm1.N2Click(Sender: TObject);
begin
assignfile(f1,'q.txt');
Reset(f1);
Readln(f1,q);
CloseFile(f1);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
AssignFile(f2,'qw.txt');
Rewrite(f2);
Write(f2,s2);

[Stilet]

Во-первых: Не хватает CloseFile(f2); после записи.
Во-вторых: Может стоит классами Делфи с файлами работать? TFileStream, TStringList и так далее...