работа со строками в PascalABC

[LeDиNkо]

Нужно заменить в строке все заглавные буквы на строчные и наоборот. Написала программу, однако, выдает ошибку: операция in неприменима к типам char. Не знаю, чем ее заменить. Подскажите, буду очень признательна....
вот код программы:
Uses Crt;
var
a: array ['а'..'я'] of char;
b: array ['А'..'Я'] of char;
stroka,s,rez : string;
i ,k : integer;
begin
TextColor(Blue); TextBold; TextSize(12);
WriteLn('Замена заглавных букв строчными и наоборот ':55);
WriteLn;
TextColor(Cyan); WriteLn('Введите строку из русских букв');
TextColor(Black); ReadLn(stroka);k:=1;rez:=' ';
WriteLn;
for i := 1 to Length(stroka) do
begin
if stroka[i] in a then begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k);end;
else begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k); end;
end;
TextColor(Cyan); WriteLn('Строка после замены:');
TextColor(black); WriteLn(s);
end.

[Mad_Cat]

Uses Crt;
var
a: set of char;
b: set of char;
s,rez : string;
i : integer;
begin
a:=['а'..'я'];
b:=['А'..'Я'];
TextColor(Blue); TextBold; TextSize(12);
WriteLn('Замена заглавных букв строчными и наоборот ':55);
WriteLn;
TextColor(Cyan); WriteLn('Введите строку из русских букв');
TextColor(Black); ReadLn(s);;
WriteLn;
for i := 1 to Length(s) do
begin
if s[i] in a then begin rez:=rez+UpCase(s[i]); ;end
else if s[i] in b then
 begin rez:=rez+LowCase(s[i]);  end;
end;
TextColor(Cyan); WriteLn('Строка после замены:');
TextColor(black); WriteLn(rez);

end.

[LeDиNkо]

Программу изменила......однако она заменяет мне только заглавные буквы на строчные, а наоборот не заменяет.... В чем проблема понять не могу:-(


Uses Crt;
var
a: set of char;
b: set of char;
stroka,s,rez : string;
i ,k,j : integer;
begin
a:=['а'..'я'];
b:=['А'..'Я'];
TextColor(Blue); TextBold; TextSize(12);
WriteLn('Замена заглавных букв строчными и наоборот ':55);
WriteLn;
TextColor(Cyan); Write('Введите строку из русских букв '); ReadLn(stroka);
TextColor(Black);k:=1;rez:=' ';
WriteLn;
for i := 1 to Length(stroka) do
begin
if stroka[i] in a then begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k);end
else begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k); end;
end;
TextColor(Cyan); WriteLn('Строка после замены: ');
TextColor(black); WriteLn(rez);
end.

[Mad_Cat]

ваше

if stroka[i] in a then begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k);end
else begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k); end;

А должно быть

if stroka[i] in a then begin S[k]:=UpCase(stroka[i]); rez:=rez+s[k];inc(k);end
else begin S[k]:=LowCase(stroka[i]); rez:=rez+s[k];inc(k); end;

[LeDиNkо]

и правда...я не заметила.........спасибо большое