Дело в том, что решила использовать нетипизированный тип файлов потому, что строки в моем случае привышают 255 символов. а в дальнейшем к этим строкам еще и добавляеются символы. вот и ищу выход, как разбить эти строки на более маленькие, чтобы можно было далее работать с текстовым типом.
может, конечно, есть другой выход, но пока в голову пришло только делить на более маленькие. а может Вы знаете, как увеличить эти 255?
text.txt
попыталась переделать в нетипизированный, но при этом текст просто переносится без изменений
Код:
var
f,f2:file of char;
n:Byte;
s:string;
b:char;
begin
assign(f, 'text.txt');
reset(f);
assign(f2, 'file1.txt');
rewrite(f2);
Repeat
Read(f,b);
If Length(s)>150 then
begin
n:=150;
Repeat
Inc(n);
Until (s[n]=' ') or (s[n]=#13);
If s[n]=' ' then insert(#10,s,n);
end;
Write(f2,b);
Until EoF(f);
close(f);
close(f2);
end.