Здравствуйте, помогите с задачей на 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. Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку