Обработка строк в Паскале

[Litrian]

я не знаю как ее сделать

[as345]

var si1,si2,si3,so1,so2,so3,so4,s:string; i,j:integer;
begin
{ввод s}
si1:='abc...'; {анлийские буквы}
si2:='абв...'; {руские буквы}
si3:='01234...'; {цифры}
so1:='';
so2:='';
so3:='';
so4:='';
for i:=1 to length(s) do
for j:=1 to length(si1) do
if s[i]=si1[j] then
so1:=so1+s[i]
else
if s[i]=si2[j] then
so2:=so2+s[i]
else
if s[i]=si3[j] then
so3:=so3+s[i]
else
so4:=so4+s[i];
{вывод}

end.

если нет ошибок, должно сработать

[CodeExpert]

и что как бы сложно создать массив заполенный автоматически элементами русского алфавита, далее второй массив элементами латинского, а дальше перебором сравнить, приоритет отдавать русским и латинский, цифры тоже не трудно как бы потом проверить и символы в самом конце..