Лёгкая по паскалю! составьте программу, которая позволяет заменить в строке s слово t1 на слово t2. строку s и слова t1 и t2 введите с клавиатуры. пример ввода: на небе появилась туча. туча луна пример вывода: на небе появилась луна.

Var
  s, t1, t2, st: string;
  i: integer;
begin
  readln(s);
  readln(t1);
  readln(t2);
  if pos(t1, s) <> 0 then
    i := pos(t1, s);
  st := copy(s, 1, i - 1);
  st := st + t2;
  st := st + copy(s, i + length(t1), length(s));
  writeln(st);
  readln;
end.