Здравствуйте,
помогите с задачей на PascalABC.

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

Да, спасибо. Только в задании написано в самом длинном слове, а не во всех :(

Да, вроде, в самом длинном: находится самое длинное и в нём ищется

нет, во всех. Допустим сделать: шашка,хорошоВ слове "хорошо" - 6 букв. Значит должна вывестись только буква "х". А выводит ш,х

так пробел же, не запятая

Ну или запятая с пробелом

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