Процедура, заменяющая символы в строке

uses crt;
var s,sn,sz,sm,sb: string;
    i:integer;
begin
sz:='0123456789';
sm:='qwertyuiopasdfghjklzxcvbnmйцукенгшщзфывапролджэхъячсмитьбюё';
sb:='QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗФЫВАПРОЛДЖЭХЪЯЧСМИТЬБЮЁ';
write('s=');
readln(s);
sn:='';
for i:=1 to length(s) do
    if pos(s[i],sz)<>0 then sn:=sn+'*'
       else if pos(s[i],sm)<>0 then sn:=sn+'a'
            else if pos(s[i],sb)<>0 then sn:=sn+'A';
write('s=',sn);
end.

uses crt;
procedure stroka;
var  s,s1,s2,s3: set of char;
i: integer;
     st,st2: string;
    a,l,o: char;
begin
     readln(st);
     s1:= ['1','2','3','4','5','6','7','8','9','0'];
     s2:= ['а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'];
     s3:= ['А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я'];
     for i:=1 to length(st) do
     begin
     if [st[i]] <= s1 then st2:= st2 + '*';
     if [st[i]] <= s2 then st2:= st2 + 'а';
     if [st[i]] <= s3 then st2:= st2 + 'А';
     end;
     write(st2)
end;
begin
stroka
end.

uses crt;
var s,sn: string;
 
 
procedure Zamena(sv: string; var svv: string);
var sz,sm,sb: string;
    i:integer;
begin
sz:='0123456789';
sm:='qwertyuiopasdfghjklzxcvbnmйцукенгшщзфывапролджэхъячсмитьбюё';
sb:='QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗФЫВАПРОЛДЖЭХЪЯЧСМИТЬБЮЁ';
sn:='';
for i:=1 to length(s) do
    if pos(s[i],sz)<>0 then sn:=sn+'*'
       else if pos(s[i],sm)<>0 then sn:=sn+'a'
            else if pos(s[i],sb)<>0 then sn:=sn+'A';
write('s=',sn);
end;
 
begin
write('s=');
readln(s);
Zamena(s,sn);
writeln('s=',sn);
end.