Здравствуйте уважаемые обитатели форума!
нужно вставить #10 (конец строки) через каждые 150 символов в нетипизированный файл.
если встречается #13 (enter), то далее отсчет символов начинать заново.
причем слова в тексте не должны разрываться, т.е. вставку делать перед следующим пробелом
кое-что нашла, но не могу понять, что такое in, и как его обозначить в var
Код:
var
f: file;
f2:file;
j,n:integer;
s:string
begin
assign(f, text.txt);
reset(f);
assign(f2, file1.txt);
rewrite(f2);
n:=0;
while n+150<length(s) do
begin
for j:=n+150 to n+1 do
begin
if s[j]=' ' then
begin
in:=j;
break;
end;
end;
insert(#10,s,n);
end;
writeln(f2,s);
close(f);
close(f2);
end.
и это, кажется, для одной строки? а если для всех, то надо добавить цикл?