вставка символа "конец строки" (Pascal)

[ТаняН]

Здравствуйте, уважаемые форумчане!

нужно вставить chr(10) (конец строки) через каждые 150 символов в нетипизированный файл.
если встречается chr(13) (enter), то далее отсчет символов начинать заново.
причем слова в тексте не должны разрываться, т.е. вставку делать перед следующим пробелом
text.txt

[evg_m]

readln(fread,s); //читаем строчку (до #13)

n:=0;
while n+150<length(s) do //надо ли нам добавлять (до конца строки <150)
begin
  // ищем последний (первый с конца)  пробел в заданном диапазоне (n+1..n+!50) 
  for j:=n+150 to n+1 do 
  begin
    if s[j]=' ' then 
    begin
      in:=j; // устанавливаем позицию замены (она же начало нового поиска) (n) и заканчиваем поиск
      break;
    end;
  end;
  insert(#10,s,n); // в вычисленную позицию добавляем #10 
// следующий поиск начнется сразу после добавленного
end;

writeln(fwrite,s); // теперь строка готова осталось ее записать

P.S. а вот если среди 150 знаков не окажется пробела то получим
#10.#10#10........ #10............
и бесконечный цикл (пока хватит памяти и размеров строки)

[ТаняН]

а что такое 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.

и я так понимаю это код для одной строки?
а если для всех строк то добавить

while not EOF(f) do