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

[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.

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