Задача на массивы, Компоненты массива символы русского алфавита ... напечатать наибольшую Опции

[ATT]

Компоненты массива символы русского алфавита ... напечатать наибольшую последовательность состоящую из из согласных!


Кто то сказал что можно как то из этого переделать!

program soglas; 
uses crt; 
var 
Z:array[1..120] of char; 
i:integer; 
d:boolean ; 
gl:set of char; 
sog:set of char; 
begin 
clrscr; 
gl:=['©','г','Ґ','л',' ','®','п','Ё','о','н','‰','“','…','›','Ђ','Ћ','ћ','ќ','?','Ћ','ќ','џ']; 
sog:=['ж','Є','','Ј','и','й','§','е','д','ў','Ї','а','«','¤','¦','з','б','¬','в','Ў','–','Љ','Ќ','ѓ','˜','™','‡','•','”','Џ', 
'ђ','‹','„','†','—','‘','Њ','’','Ѓ','‚']; 
For i:=1 to 10 do 
begin 
write('‚ўҐ¤ЁвҐ ЎгЄўг > '); 
readln(Z[i]); 
end; 
For i:=1 to 10 do 
begin 
if Z[i] in sog then 
begin write(Z[i]); 
d:=true; 
end else if d<>true then d:=false; 
end; 
if not(d) then writeln('ЌҐв б®Ј« бле ЎгЄў'); 
readln; 
end.