работа с файлами в паскале

[777pro777]

не могу не как до думаться..... мне надо "Все слова, состоящие из 5 букв заменяет на *****" . Подробен у меня есть файл в нем 5 строк текста мне нужно найти слова из пяти символов и заменить на снежинки (*****) и сохранить в файле но не могу написать код может подскажите ?

[Serge_Bliznykov]

просто ищете на форуме код, который разбирает строку на отдельные слова.

и всё. дальше уже элементарно совсем - если длина слова =5 то вместо слова пишем звёздочки.
Профит.

[Stilet]

А я даже похвастаюсь:http://www.programmersforum.ru/showt...369#post398369

[777pro777]

uses crt;
var
f_out: text;
i,n,l,m,nach:integer;
s,subs:string;
begin
clrscr;
assign (f_out, 'lab2.dat');
rewrite (f_out);
writeln('Введите сторку');
readln(s);
write(f_out,s);
close (f_out);
writeln  ('программа сохранила' );
   reset(f_out);
l:=0;
nach:=1;
for i:=1 to length(s)do
if s[i]=' ' then begin
m:=i;
 if(m-nach)=5 then begin
 delete (s,nach,5);
 insert('*****',s,nach);
 nach:=m+1; end;
writeln(s);
end;
  read(f_out,s);
     close (f_out);
end.

нужно исправить и не знаю как((( Если программа считала пять символов то заменила а потом к примеру три то не считала а если потом опять стоит 5 символов то она их не заменяет