Примерная реализация
Код:
var t:TextFile;// твой текстовый файл
s:string; //твоя строка
begin
AssignFile(t,'твой файл.txt'); //связь с текстовым файлов
rewrite(t); //открыть для перезаписи
While length(s)>5 do
begin
writeln(t,copy(s,1,5)); //записываем первые 5 символов
delete(s,1,5); //удаляем их
end;
writeln(t,s); //записываем символы
closefile(t); //закрываем файл
end;
Админ: Пользуемся тегами при оформлении кода!