Массивы в Pascal.

[sss2208]

Вообщем тут такое задание: Ввести с клавиатуры строку S длиной до 80 символов из букв латинского и русского алфавита. В строку S1 перенести все буквы латинского алфавита, а в строку S2 - все буквы русского алфавита. Можете помочь с решением?
Вот мой код, к сожалению неправильный(.

program lab6v9;
uses crt;
var
s:string[80];
sl,su:string;
i,j,m:integer;
begin
clrscr;
writeln('Please enter string 80');
readln(s);
for i:= 1 to length(s) do
if (s[i] in ['a','b','c','D', 'E', 'F', 'G', 'H', 'I' ,'K','L', 'M', 'N' ,'O', 'P',
'Q', 'R', 'S', 'T', 'V', 'X', 'Y', 'Z']) then
s1[j]:=s[i];
if s[i] in (['а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я']) then
s2[m]:=s[i];
write('Latuna:=',s1);
writeln;
write('Rus:=',s2);
writeln;
end.

[ViktorR]

Можно описать константное множество

const mLat = ['A' .. 'Z'];

и выполнять разделение строки по принадлежности к mLat.
Перед циклом очистим строку.

...
Lat := '';
{Начало цикла}
if (UpCase(s[i] in mLat) then {UpCase - переводим символ в верхний регистр}
   Lat := Lat + s[i];   {добавление в строку}
else
   Rus := Rus + s[i]; {сюда всё остальное}
...

PS:
Длина строки в Паскале хранится в нулевом байте.
При добавлении элементов в строку, необходимо заботиться о состоянии этого байта. Это можно сделать, но лишние хлопоты. При слиянии строк процедуры слияния сами об этом заботятся.

[taras-proger77]

Вот только строка – массив лишь по сути, но массивом не называется.

[taras-proger77]

Сообщение от sss2208

if (s[i] in ['a','b','c','D', 'E', 'F', 'G', 'H', 'I' ,'K','L', 'M', 'N' ,'O', 'P', 'Q', 'R', 'S', 'T', 'V', 'X', 'Y', 'Z']) then

Наифга?

if ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z'))

[taras-proger77]

Сообщение от sss2208

s:string[80];

80 - дефолтное ограничение длины для просто

string

.

[Вадим Мошев]

Сообщение от taras-proger77

Наифга?
Код:

if ((s[i]>='a') and (s[i]<='z')) or ((s[i]>='A') and (s[i]<='Z'))

Нафига?

if lowerCase( s[i] ) in ['a'..'z'] then // ...

[Аватар]

Сообщение от taras-proger77

80 - дефолтное ограничение длины для просто string.

255

[canadamoscow]

На PascalABC.NET

begin
  var s := ReadlnString;
  var s1 := s.Where(t-> (t.toLower in 'а'..'я') or (t.toLower = 'ё')).Println;
  var s2 := s.WHere(t-> t.toLower in 'a'..'z').Println;;
end.