задачка на последовательности Опции

[spektr]

Вот так звучит задача:В данном тексте,заданном более чем одной строкой,все последовательности "подин" заменить на "подын".

А вот решение:
var
S:string;
A:byte;
Writeln;
Readln(S);
While Pos ("Подин",S)<>0 do
begin
A:=Pos("Подин",S);
Delete (S,A,5);
Insert ("Подын",S,A);
End;
Writeln(S);
end.

Ну чего-то программа у меня не идёт,выдаёт ошибку,проверьте пожалуйста!!! Заранее огромное спассибо!

[Ozzя]

Код

var
S:string;
A:byte;
f:text;
begin
  Writeln;
  assign(f,'твой_текст.txt');
  reset(f);
while not eof(f) do
begin
  Readln(f,S);
  While Pos ('Подин',S)<>0 do
     begin
        A:=Pos('Подин',S);
        Delete (S,A,5);
        Insert ('Подын',S,A);
        End;
     Writeln(S);
end;
close(f);  
end.

Сообщение отредактировано: Ozzя - 1.06.2007 14:02