КАК сделать ввод строки на русском языке

[vicdon]

вот моя прога:

uses crt;
var str,strsave: string;
var i,j,d,start,m:integer;
var f,g:boolean;
    strmas: array[1..25] of string;
begin
clrscr;
writeln( 'Vvedite stroky');
readln(str);

    m:=1;
  for i:=1 to length(str) do
    begin

      if (str[i]<>' ') and ((str[i-1] = ' ') or (i=1)) then
       begin
        start:=i;
        f:=true;
       end
      else if (str[i]=' ') and (str[i-1]<>' ') and (i<>1) then
       begin
        d:=i;
        g:=true;
       end
      else if (i=length(str)) then
       begin
        d:=i+1;
        g:=true;
       end;
        if f and g then
         begin
            strsave:=copy(str, start, d-start);
            f:=false;
            g:=false;
              if length(strsave) mod 2 =0 then
                begin
                   m:=m+1;
                   strmas[m]:=strsave;
                end;
         end;
     end;
        for i:=1 to m-1 do
         begin
          for j:=i+1 to m do
           if strmas[i] > strmas[j] then
           begin
            strsave:=strmas[i];
            strmas[i]:= strmas[j];
            strmas[j]:= strsave;
           end;
         end;
          for i:=1 to m do
           writeln(strmas[i]);

readln;
end.

[KORT]

Переключи раскладку: Правый Shift+ Правый Ctrl

[Viteef]

Интересный момент: для того что б раскладка переключалась, надо что б при загрузке системы стоял по умолчанию русский.

[Stilet]

Эт тоже не всегда помагает.
Как правило я с паскалем в уолледже включал заодно KeyRus или Keyboard.com Тогда русский шел (и даже украинский)

[_Dmitry]

Вопрос уже был http://www.programmersforum.ru/showthread.php?t=5059
Смотри пост #7, гарантированно работает.