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

[@^WARlock^@]

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

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

[@^WARlock^@]

Как связать файлы я и сам знаю, а вот серидину что-то ни как ...... .

Код

uses crt;
var
n,i:integer;
f,f1:text;
a,b:string;
begin clrscr;
assign (f,'c:\1.txt');
reset(f);
assign (f1,'c:\2.txt');
rewrite(f1);
read(f,a);

.........

write(f1,b);
readln;
close(f);
close(f1);
end.

[volvo]

Как связать файлы я и сам знаю, а вот серидину что-то ни как ...... .

А ссылку на "середину" я тебе и привел... Учись читать посты ДО КОНЦА и находить то, что там написано.