помогите пожалуйста дописать задачу в Pascal

[Stilet]

Да Лазарь новый уже есть. 1 0 12.

оно НЕ МОЖЕТ там быть..

Почему?

стандартный upcase не работает для кириллицы

А вот не зарекайся. FPC могли и такое устроить, раз там все на юникоде.

[Poma][a]

Почему?

Букофка какая? Прально! Большая..
А какие я вывожу? Маленькие.. Откуда она там?

[mishammm]

работаю в Pascal Abc.
var
s:string;
i:byte;
c:set of char;
begin
c:=[];
writeln('vvedi text');
readln(s);
for i:=1 to length(s) do
If s[i] in ['а'..'я'] then include (c,s[i]);
writeln(c);
end.
вот так еще писал. что скажете?
а также попробывал все таки методом пузырька использовать.
но не работает

[Stilet]

Прально! Большая..

Ну. Pos (UpCase('л'), s) что даст?

не работает

Ну так ты ничего не выводишь в результате.

[Poma][a]

Ну. Pos (UpCase('л'), s) что даст?

'Л'
НО 1-ой строкой вывод БОЛЬШОЙ Л..
А я вывожу МАЛЕНЬКИЕ!
WriteLn (i), где i in ['a'..'z'].. я не могу понять, откуда там берется БОЛЬШАЯ Л

var
s:string;
i:byte;
c:set of char;
begin
c:=[];
writeln('vvedi text');
readln(s);
for i:=1 to length(s) do
If s[i] in ['а'..'я'] then include (c,s[i]);
writeln(c);
end.

Даже компилироваться не будет..

[Stilet]

Рома, чего мы спорим - пройдись пошаговкой и убедись в:
1) Ты ошибся
2) Твой код перековеркали и не сказали.

[mishammm]

Сообщение от Poma][a

'Л'
НО 1-ой строкой вывод БОЛЬШОЙ Л..
А я вывожу МАЛЕНЬКИЕ!
WriteLn (i), где i in ['a'..'z'].. я не могу понять, откуда там берется БОЛЬШАЯ Л

Даже компилироваться не будет..

как не будет???

var
  s : string;
  i : byte;
  c : set of char;
begin
  c := [];
  write('введите текст: ');
  readln(s);
  {выделяем буквы 'a'..'я'}
  for i := 1 to length(s) do
    if s[i] in ['a'..'я'] then include(c, s[i]);
  writeln('буквы: ', c);
  readln
end.

этот точно будет

[mishammm]

вот, но не знаю правильно ли

[Poma][a]

Рома, чего мы спорим - пройдись пошаговкой и убедись в:
1) Ты ошибся
2) Твой код перековеркали и не сказали.

Свой косяк с CaseUp'ом я уже признал..
Других ошибок не вижу..

[mishammm]

уже запутался где правильно? что то РОман кинул выше это неправильно? и там где я кинул метод прузырька то пишет : Нельзя преобразовать тип integer к char на строке For i:=1 to m do