Напишите программу ввода любых символов и вывода только классных букв.

uses crt;
var s,sgr,ssgr,sp,ss,sga,ssga,si,sn: string;
    n,i: integer;
begin
sgr:='уеыаоэяиюУЕЫАОЭЯИЮ';
ssgr:='йцкнгшщзхфвпрлджчсмтбЙЦКНГШЩЗХФВПРЛДЖЧСМТБ';
sp:='УЕЫАОЭЯИЮЦКНГШЩЗХФВПРЛДЖЧСМТБQWRTPSDFGHJKLZXCVBNMEYUIOA';
ss:='уеыаоэяиюцкнгшщзхфвпрлджчсмтбeyuioaqwrtpsdfghjklzxcvbnm';
sga:='eyuioaEYUIOA';
ssga:= 'qwrtpsdfghjklzxcvbnmQWRTPSDFGHJKLZXCVBNM';
si:='ъьЪЬ';
writeln ('Введите строку');
readln (s);
writeln ('Введите:');
writeln ('1 для вывода русских согласных');
writeln ('2 для вывода русских гласных');
writeln ('3 для вывода английских согласных');
writeln ('4 для вывода английских гласных');
writeln ('5 для вывода прописных');
writeln ('6 для вывода строчных');
writeln ('7 для вывода букв, не обозначающих звуков');
readln (n);
case n of
1: begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],ssgr)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
2: begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],sgr)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
 
3: begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],ssga)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
 
4: begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],sga)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
 
5:  begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],sp)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
 
6:  begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],ss)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
 
7:  begin
   sn:='';
   for i:=1 to length (s) do
       begin
       if pos(s[i],si)<>0 then sn:=sn+s[i];
       end;
   writeln (sn);
   end;
   end;
readln;
end.