Программа на языке Паскаль, которая удаляет из строки подстроку, введённую с клавиатуры, и вставляет после первого символа знак '@': 1

var s0, s1: string;begin  ReadLn(s0);  ReadLn(s1);  if Pos(s1, s0) <> 0 then Delete(s0, Pos(s1, s0), Length(s1));  Insert('@', s0, 1);  WriteLn(s0);end.

Алгоритм решения задачи: 2

1. Ввести строку, подстроку, которую требуется заменить, и подстроку, которую требуется вставить на место прежней. 2
2. Найти место вхождения подстроки в строку с помощью функции pos(). 2
3. Удалить старую подстроку с помощью процедуры delete(). 2
4. Вставить новую подстроку, используя процедуру insert(). 2