Перекодировка строчных букв

[ac1d_buRn]

Например из hRyufOOP надо сделать HRYUFOOP

Код программы, результата никакого...

var
x: char;
begin
write(x);
readln(x);
x:=char(ord(x));
if (ord(x) > 64) and (ord(x) < 91) then
begin
x := char(ord(x) + 32);
writeln(x);
end;

readln;
end.

[Macmeprag]

var
  s : string;
begin
  WriteLn('Введите строку');
  ReadLn(s);
  s:=UpCase(s);
end.

если делфи то UpperCase
вроде бы)

[ac1d_buRn]

для русских символов не не работает... Или для них отдельное условие?

[Macmeprag]

var
s:ansistring
begin
read(s)
s:=AnsiUpperCase(s);
end.

[ac1d_buRn]

Macmeprag, не работает...

[DRAgon™]

Uses crt;
var
x:String;
i:integer;
begin
readln(x);
for i:=1 to length(x) do  begin
x := chr(ord(x[i]) - 32);
write(x);
end;
end.

[Macmeprag]

что за бредовые методы..))
а если будет "ё"?

[DRAgon™]

это со строками, с символами уже сам зделаешь по аналогии

с символами

Uses crt;
var
x:char;
i:integer;
begin
readln(x);
x := chr(ord(x) - 32);
write(x);
end.

[Stilet]

А вообще для винды нужно или для ДОСа?

[ac1d_buRn]

DRAgon™, а какую роль играет i:integer; ?