Кто то сказал что можно как то из этого переделать!
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.