задача с текстовым файлом в паскале

[SeregaVili]

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

Я что то попробовал написать но по-моему бред получился...

program rgr_2_z_4;
uses crt;
var f,g,k:text;

procedure schit_i_zapis(var f,g,k:text);
var i,j:byte;
    str1,str2:string;
begin
while not eof(f) do
begin
     readln(f,str1);

     for i:=1 to length(str1) do
     begin
          while (i<=60) or (str1[i] <> '.') do
                begin
                    str2:=copy(str1,i,1);
                    delete(str1,i,1);
                 end;
     end;
writeln(g,str2);
writeln(k,str1);
end;
end;


begin
clrscr;
assign(f,'2rgr_zad.txt');
assign(g,'r2z4.txt');
assign(k,'r2z4-2.txt');

reset(f);
rewrite(g);
rewrite(k);

schit_i_zapis(f,g,k);

close(f);close(g); close(k);
erase(f)
rename(k,'2rgr_zad.txt')
end.

кто знае как сделать прогу правильно напишите плз



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[ViktorR]

1. В меню окна редактирования есть символ #.
Выделяешь код в окне и жмешь символ. Код форматируется.

2. Сложно редактировать такой код, поэтому посмотри вложение.


Идея такая:
1. читаем строку из файла.
2. символы из прочитанной строки добавляем в выходную строку
3. подсчитываем число добавленных символов
4. проверяем условия: число символов равно 60 и последний символ точка
5. Если условие не выполняется, то продолжаем с п.2
Иначе: записываем выходную строку в файл, очищаем строку и счетчик символов.
6. Если не конец файла, то к п.1.
7. Последние символы записываем в файл.


Ну, вроде так ...

[SeregaVili]

Спасибо) попытаюсь разобраться