На строки. на строки. из слова параллелограмм получить слово гром.надо тетем удаления замены всавки сделать, но как именн?

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.

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