Строки (преобразует все большие буквы русского алфавита в малые, и наоборот)

[Oraner]

Составить программу, которая осуществляет ввод строки с клавиатуры и преобразует все большие буквы русского алфавита в малые, и наоборот.
program ;
...
...
end.

[Serge_Bliznykov]

на "чистом" Паскале, без привязки к платформе (и конкртной таблице символов)?
тогда я бы такой способ рекомендовал:

const
  LoRus = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  UpRus : string = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

function UpperRus(s : string) : string;
var i : integer;
begin
  for i:=1 to Length(s) do
    if Pos(s[i],LoRus)>0 then s[i] := UpRus[Pos(s[i],LoRus)]
    else s[i] := UpCase(s[i]);
  UpperRus := s
end;

begin
  Write(UpperRus('test is Only Best В чаще юга жил был цитрус!'));
  readln
end.

в нижний регистр преобразование допишите самостоятельно по предложенному образцу..

[Oraner]

Serge_Bliznykov, спасибо!

[Poma][a]

все большие буквы русского алфавита в малые

(Болд мой)
Поэтому это :

else s[i] := UpCase(s[i])

можно опустить

[Serge_Bliznykov]

Poma][a, согласен с уточнением.

Действительно, раз в задании упомянуты только русские буквы, то английские можно (нужно) оставлять в том же регистре...