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

program lab6 ;
Var
  s,sl,su: Array [1..80] of Char;
  i,n,k,j: Byte;
BEGIN
k:=0;
j:=0;
Repeat
  Write('введите к-во символов (от 1 до 80): ');
  Readln(n);
until n in [1..80];
Writeln('Введите символы: ');
For i:=1 to n do
begin
  Readln(s[i]);
  If UpCase(s[i]) in ['A'..'Z'] Then
  begin
    Inc(k);
    sl[k]:=s[i];
  end;
  If UpCase(s[i]) in ['А'..'П','Р'..'Я'] Then
  begin
    Inc(j);
    su[j]:=s[i];
  end;
end;
Writeln('SL: ');
For i:=1 to k do
Write(sl[i],' ');
Writeln;
Writeln('SU: ');
For i:=1 to j do
Write(su[i],' ');
Readln
END.