Дана строка. разбить её на две строки, одна должна содержать гласные, другая - согласные

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

const
  Soglasn = 'ЦКНГШЩЗХФВПРЛДЖЧСМТБцкнгшщзхфвпрлджчсмтб';  
  Glasn = 'УЕЫАОЭЯИЮЁуеыаоэяиюё';
var
  StrSogl, StrGlas, Str: string;
 
procedure OperationsStr(Str: string; var StrSogl, StrGlas: string);
var
  i: byte;
begin
  StrGlas:='';
  StrSogl:='';
  for i:=1 to length(Str) do
    if pos(Str[i], Glasn) <> 0 then StrGlas:=StrGlas+Str[i]
      else if pos(Str[i], Soglasn) <> 0 then StrSogl:=StrSogl+Str[i];
  writeln('Строка гласных: ', StrGlas);
  writeln('Строка согласных: ', StrSogl);
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  OperationsStr(Str, StrSogl, StrGlas);
end.

uses crt;
var s,srg,srs: string;
 
procedure OneTwo (s1: string; var s2,s3: string);
var s,sg,ss,srg,srs: string;
    i: integer;
begin
sg:='УЕЫАОЭЯИЮЁуеыаоэяиюё';
ss:='ЦКНГШЩЗХФВПРЛДЖЧСМТБцкнгшщзхфвпрлджчсмтб';
s2:=''; s3:='';
for i:=1 to length(s1) do
    if pos(s1[i],sg)<>0 then s2:=s2+s1[i] else
       if pos(s1[i],ss)<>0 then s3:=s3+s1[i];
end;
 
begin
write('s=');
readln(s);
OneTwo (s,srg,srs);
writeln(srg);
writeln(srs);
end.