(Код паскаль)Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.

program Lyonyshna; const     Rus = ['А'..'Я', 'а'..'я'];     Lat = ['A',..'Z', 'a'..'z']; Var f,frus,flat,foth:text;     i: integer;     st,strus,stlat,stoth: string; begin     Assign(f, 'file1.txt');     Rewrite(f);     write('Введите исходную строку: '); readln(st);     writeln(f,st);     close(f);     strus:='';     stlat:='';     stoth:='';     Reset(f);     Assign(frus, 'russian.txt');     Rewrite(frus);     Assign(flat, 'latin.txt');     Rewrite(flat);     Assign(foth, 'other.txt');     Rewrite(foth);     Readln(f,st);     for i:=1 to length(st) do       if st[i] in rus then strus:=strus+st[i]         else           if st[i] in lat then stlat:=stlat+st[i]             else               stoth:=stoth+st[i];     Writeln(frus,strus);     Writeln(flat,stlat);     Writeln(foth,stoth);     Writeln('Русские символы: ',strus);     Writeln('Латинские символы: ',stlat);     Writeln('Другие символы: ',stoth);     Close(f); Close(frus); Close(flat);  Close(foth); end.