Задача на строки. Задача на строки. Из слова ПАРАЛЛЕЛОГРАММ получить слово ГРОМ.надо тетем удаления замены всавки сделать, но как именн? очень срочно помогите пожалуйста

var s1,s2:string;

Begin

  s1:="ПАРАЛЛЕЛОГРАММ";

  s2:="ГРОМ";

  for i:= 1 to length(s1) do

  begin

    if i > length(s2) then s[i]='';

    if s1[i]<>s2[i] then s1[i]=s2[i];

   writeln(s1);

  end;

End.

чем не вариант, если правил нету)