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

[@^WARlock^@]

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

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

[SiNaC0m]

У меня похожая задача:"Нужно ввести данные в файл и если в строке есть цифры, то удвоить их".
У меня получилось сделать, только вот одна проблема: нужно, что бы цифра удваивалась подряд(например: была
строка "фыв1ф" - стала"фыв11ф"), а у меня получается, что цифра добавляется в конец строки...
Подскажите как добиться нужного результата:

Код

uses wincrt;
var a,b : text;
    s,s1 : string;
    i : integer;
begin
assign(a,'c:\a.txt');
rewrite(a);
readln(s);
write(a,s);
close(a);
assign(b,'c:\b.txt');
reset(a);
rewrite(b);
while not eof(a) do
  begin
    read(a,s);
   for i:=1 to length(s) do
    begin
     if s[i]='1' then
    s1:=s+s[i]+s1;

    end;
  end;
   write(b,s1);
  close(a);
  close(b);

end.