Не знаю что у меня не правильно вроде все написал но что-то не хочет выполнятся помогите исправить

[Денис123321]

Вот задание,
Дано непустое последовательность слов, заканчивается символом "%".
Выписать все шипящие согласные, входящих хотя бы в одном,
расположить их в алфавитном порядке.
Мой код

var 
tekst: string; 
i,j,len,len1: integer; 
buk: string; 
ke: char; 
pr:= [' ']; 
sh:= ['ц','ч','ш','щ']; 
zn:= [' ',',','.',';',':','!','?']; 
begin 

writeln('Введіть текст,що закінчується `%`'); 
read (tekst); 
len:=length(tekst); 
for i:=1 to len do begin 
if tekst[i]='%' then begin 
buk:=buk+tekst[i-1]; 
break; 
end; 
if (tekst[i] in zn) then begin 
if tekst[i+2] in pr then buk:=buk+tekst[i-1] else buk:=buk+tekst[i-1]; 
end; 
end; 

writeln(buk); 
writeln; 
writeln; 
len1:=length(buk); 
i:=1; 
repeat 
if buk[i] in zn then begin 
delete(buk,i,1); 
len1:=len1-1; 
end; 
i:=i+1; 
until i=len1; 


len1:=length(buk); 
for i:=1 to len1-1 do 
for j:=i+1 to len1 do 
if buk[j] in sh then 
if buk[i]>buk[j]then 
begin 
ke:=buk[i]; 
buk[i]:=buk[j]; 
buk[j]:=ke; 
end; 
writeln(buk); 
end.

[evg_m]

но что-то не хочет выполнятся

и что же это значит ?..
1. выдает ошибки компиляции. КАКИЕ?
2. работает, но выдает не те результаты. ЧТО вводим, ЧТО ждем получить и ЧТО получаем на самом деле.
3. при запуске "вылетает" с ошибкой. КАКОЙ?

[Денис123321]

программа не выводит шипящие, вообще. Она выводит разные буквы в том числе и гласные

[Hitoku]

В каком Паскале работаете? И скажите, что в итоге должно произойти, потому из вашего описания мало что понятно

[Hitoku]

Если просто выдать и отсортировать все шипящие, то вот для PascalABC.Net

begin
  Print(ReadString('Введите строку: ').Where(v->'цчшщ'.Contains(v)).ToArray.Sorted.JoinIntoString(', '));
end.

[evg_m]

программа не выводит шипящие, вообще. Она выводит разные буквы в том числе и гласные

т.е.

2. работает, но выдает не те результаты. ЧТО вводим, ЧТО ждем получить и ЧТО получаем на самом деле.

и где же все эти ЧТО?

if buk[i] in zn then begin //если буква из нашего списка(шипящая) то
delete(buk,i,1); // удаляем ЕЁ
... //если мы что-то удалим то на этом месте появится новая буква (та что была дальше)
end; 
i:=i+1; // но несмотря на это мы все равно двигаемся дальше?...