Нужно произвести поиск по ткастовому файлу.

[Vitaly92]

Задача: произвести поиск по текстовому файлу, найти строки в которых встречаются слова начинающийся с заданной буквы и переписать их(строки) в новый файл.
Вот, что то придумал но с поиском затруднения

Program ggg;
Uses CRT;
Var
   X,Z: Text;
   S: String;
   I: Integer;
   Q: Char;
Begin
     ClrScr;
     Assign(X,'C:\1.txt');
     Assign(Z,'C:\2.txt');
     ReSet(X);
     While not Eof(X) do
           Begin
                ReadLn(X,S);
                WriteLn(S);
           End;
     Close(X);
     Write('Inter the letter: ');
     Read(Q);
     ReSet(X);
     ReWrite(Z);
     While not Eof(X) do
     	Begin
     	   ...
     	   ...

Помогите дописать, заранее благодарен!

[Hacker19_90]

Program ggg;
Uses CRT;
Var
   X,Z: Text;
   S: String;
   I: Integer;
   Q: Char;
Begin
     ClrScr;
     Assign(X,'C:\1.txt');
     Assign(Z,'C:\2.txt');
     ReSet(X);
     Rewrite (z);
     Write('Inter the letter: ');
     Read(Q);
     While not Eof(X) do
           Begin
                ReadLn(X,S);
                if S[1] = Q then Writeln(Z, S);
           End;
     Close(X);
     Close(Z);
end.

[Vitaly92]

Hacker19_90,
Спасибо, но твой код осуществляет поиск только по первому символу, а надо во всей строке найти слово которое начинается с заданной буквы.
Как я понял параметр поиска должен выглядеть вот так: ' ',Q