помогите написать прогу на delphi

[The Godfather]

Volt, приведенный код, как я понимаю, формирует странным образом файлы из 100 символов?

var f1,f2: textfile;
c: char;

begin
assign(f1,'f1.txt');
assign(f2,'f2.txt');
reset(f1);
rewrite(f2);
while not(eof(f1)) do
    begin
    read(f1,c);
    if (c='.') then break;
    write(f2,c);
    end;
close(f1);
close(f2);
end.

Как вариант, примерно так. Читаем посимвольно до точки или до конца файла, попутно посимвольно пишем во второй файл. Если точка или конец файла, то заканчиваем писать и закрываем файлы.
Если тексты маленькие, можно по ходу чтения записывать в строку, а в конце слить всю строку в файл.

P.S. А вообще, это же несложно. Не прогуливайте уроки, там иногда рассказывают полезные вещи