Здравствуйте,
помогите с задачей на 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.

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.