Дана строка символов. Удалить из строки подстроку, введенную с клавиатуры,

Question

Дана строка символов. Удалить из строки подстроку, введенную с клавиатуры, а затем вставить после 1-го символа знак ' @' паскаль

user_24751000 · Accepted Answer

program q227143579;
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.

stalker_shuhart · Answer

Делфи уже не помню, но там должна быть замена подстроки.
меняй введенную на ""