Ввести с клавиатуры строку S длиной до 80 символов из букв латинского и
русского алфавитов. В строку SL перенести все буквы латинского алфавита, а в строку SU - все буквы русского алфавита. использовать символьный массив

var
s,su,sl: string[80];
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>128) then su:=su+s[i] else sl:=sl+s[i];
writeln(su);
writeln(sl);
end.