Задача на строки. Задача на строки. Из слова ПАРАЛЛЕЛОГРАММ получить слово ГРОМ.…

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. Чем не вариант, если правил нету)