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

[@^WARlock^@]

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

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

[Bokul]

uses crt;
const st=' ,.:?!';
var f1,f2:text; i:integer; ch:char; path1,path2,temp,word:string;
begin
clrscr;
writeln('Enter letter');
readln(ch);
writeln('Enter path to the source file');
readln(path1);
writeln('Enter path to the new file');
readln(path2);
assign(f1,path1);
reset(f1);
assign(f2,path2);
rewrite(f2);
temp:='';
while not(eof(f1)) do
     begin
          readln(f1,temp);
          for i:=1 to length(temp) do
              if pos(temp[i],st)=0 then
                 word:=word+temp[i]
              else
                  begin
                       if word[1]=ch then
                          begin
                               write(f2,word+' ');
                               write(word+' ');
                          end;
                       word:='';
                  end;
     end;
close(f1);
close(f2);
readln;
end.