Здравствуйте,

помогите с задачей на PascalABC.

Найти и вывести все шипящие буквы (без повторений), которые встретились в самом длинном слове.

var

a: array [1 ... 4] of char;

s: string;

i: byte : = 1;

begin

readln (s) ;

while (i < length (s)) do

begin

if ((not (s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos (s[i], s) > i)) then

delete (s, i, 1)

else

i + = 1;

end;

writeln (s) ;

end.

Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку