Люди добрые помогите с паскалем строковый тип) В тексте заменить все вхождения…

var i: integer; var s: string; begin writeln ('Vvedite stroku'); readln (s); while pos ('да ', s) > 0 Do begin i: =pos ('да ', s); delete (s, i, 2); insert (' не', s, i); end; writeln (s); readln; end.