Работа с файлами Опции

[@^WARlock^@]

Помогите решить.

Нужно написать прогу, которая считывает из заданного текстового файла слова и записывает в новый текстовый файл только те из них, которые начинаются с указанной буквы.

[@^WARlock^@]

Программа работает вот в таком виде:

Код

uses crt;
var
f:text;
a,n:string;
k,i:integer;
begin clrscr;
writeln('Vvedite stroku: ');
readln(n);
write('Vvedite bukvu: ');
readln(a);
n:=n+' ';
while length(n)>0 do
begin
i:=pos(' ',n);
if n[1]=a then
k:=k+1;
delete(n,1,i);
end;
writeln;
writeln('iscomih slov: ',k);
readln;
end.

А вот в преобразованном виде ниже, для моего случая. Она пишет, что 'iscomih slov: 0'

Код

uses crt;
var
f1,f2:text;
a,n:string;
c:char;
k,i:integer;
begin clrscr;
write('Vvedite bukvu: ');
readln(a);
assign (f1,'c:\1.txt');
reset(f1);
assign (f2,'c:\2.txt');
rewrite(f2);
read(f1,a);
n:=n+' ';
while length(n)>0 do
begin
i:=pos(' ',n);
if n[1]=a then
k:=k+1;
delete(n,1,i);
write(f2,'Iskomix slov: ',k);
end;
close(f1);
close(f2);
end.