задача на текстовые файлы

[JosH7]

помогите, пожалуйста!!

нужно:
прочитать из текстового файла F1 текст. Заменить все слова 'os' на 'cos'. Результат записать в файл F2 и вывести на системное печаточное устройство.

спасибо наперед огромное!!)

[Stilet]

Наработки?

[JosH7]

program lab7 (input, output);
var f1, f2: text;
i: integer; k: string;
begin
assign (f1, 'd:\f1.txt');
reset (f1);
while not eof(f1) do
begin
readln (f1, k[i]);
k:=' '+k+' ';
for i:=1 to length(k) do
begin
if copy(k,i,1)='os' then
begin
delete(k,i,1);
insert('cos',k,i);
end;
end;
rewrite (f2);
for i:=1 to length(k) do
write(f2);
close(f1); close(f2);
end; end.

[Stilet]

readln (f1, k[i]);

Посимвольно?? Зачем?
Считай построчно, а потом замена в своем классическом платьеце:

i:=1;
while (i<length(k)) do begin
 while (i<length(k)) and (copy(k,1,2)<>'os') do inc(i);
 insert(k,'с',i);inc(i,3); 
end;

[JosH7]

спасибо огромное!!

[Stilet]

Пользуйся на здоровье )

var f1, f2: text;
 i: integer; k: string;
begin
 assign (f1, 'd:\f1.txt'); reset (f1);
 assign (f2, 'd:\f2.txt'); reset (f2);

// Сканим файл построчно
 while not eof(f1) do begin
  readln (f1, k);

// Заменяем в сосканенной строке 
i:=1;
while (i<length(k)) do begin
 while (i<length(k)) and (copy(k,1,2)<>'os') do inc(i);
 insert(k,'с',i);inc(i,3); 
end;

//записываем изменения в новый файл
 writeln(f2,k);

 end;{while}

close(f1);close(f2);
end.