Используя типизированную константу множество преоброзовать все маленькие русские буквы в верхний регистр

[VITIY]

Здраствуйте мне задали задачу на множества но здавать нужно завтро я попробывал но вызывает ошибку. Помогите правильно написать программу: Дана строка. Используя типизированную константу множество преоброзовать все маленькие русские буквы в верхний регистр(Большие буквы). Посмотрите а кто может пажалуйсто.

[danekne]

Ошибку и программу в студию!

[VITIY]

program bykvu;
uses crt;
type
Charset=set of char;
const
smallLetters:charset=['а'..'я'];
var
s:string;
i:integer;
c:real;
begin
clrscr;
readln(s);
for i:=1 toLength (s) do
if s[i] in Charset then

s[i]:=upcase(s[i])
end;
writeln(s);
readln;
end.

[alex_fcsm]

Вместо

smallLetters:charset=['а'..'я'];

Попробуйте

smallLetters:charset=['а','е','ё','и','о','у','э','ю','я'];

Вместо
if s[i] in Charset then

Попробуй

if s[i] in smallLetters then

[VITIY]

program bykvu;
uses crt;
type
Charset=set of char;
const
smallLetters:charset=['а','е','ё','и','о','у','э','ю','я'];
var
s:string;
i:integer;
c:real;
begin
clrscr;
readln(s);
for i:=1 to Length (s) do
if s[i] in smallLetters then

s[i]:=upcase(s[i])
end; <-- теперь жалуется что точка не стоит
writeln(s);
readln;
end.

[danekne]

Правильно делает! У Вас Begin один, а end а два. Сотрите первый. И точку с запятой перед writeln проставьте. Только множество определено не правильно... Оно содержит только гласные буквы, а Вам менять нужно все...

[VITIY]

А как тогда правильно будет, если все перечислять то он будет ругаться мол длинная строка.?

[alex_fcsm]

program bykvu;
uses crt;
type
Charset=set of char;
const
smallLetters:charset=['а','е','ё','и','о','у','э','ю','я'];
var s:string;
    i:integer;
begin
clrscr;
readln(s);
for i:=1 to Length (s) do
if s[i] in smallLetters then s[i]:=upcase(s[i]);
writeln(s);
readln;
end.

[VITIY]

И что ни чего не получилось.

[alex_fcsm]

Что за ошибка?

P.S. У меня на латинских(русские не поддерживаются ) буквах работает