преобразование строк

program tekstf;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  st: string[80];
 len:integer;
 i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('vvedite stroku i nagmi enter') ;
  write('->') ;
  readln(st);
  len:=length(st);
 
  for i:=1 to len do
      begin
  case st[i] of
  'а'..'п': st[i]:=chr(ord(st[i])-32);
  'р'..'я' :st[i]:=chr(ord(st[i])-80);
      
writeln('stroka preobrazovana')
writeln(st)
readln  ;
  end;
end.

program tekstf;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  st: string[80];
 len:integer;
 i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('vvedite stroku i nagmi enter') ;
  write('->') ;
  readln(st);
  len:=length(st);
 
  for i:=1 to len do
    if st[i] in ['a'..'z', 'à'..'ÿ'] then st[i]:=chr(ord(st[i])-32);
 
writeln('stroka preobrazovana');
writeln(st);
readln  ;
 
end.

case st[i] of
  'а'..'п': st[i]:=chr(ord(st[i])-32);
  'р'..'я' :st[i]:=chr(ord(st[i])-80

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
//Функция берёт строку в ANSI кодировке (Windows)
//и возвращает её перевод в OEM кодировку (DOS) в виде отдельной строки.
function AnsiToOem(aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    CharToOem(PChar(aStr), PChar(Result));
  end;
end;
 
//Функция выполняет преобразование букв из нижнего в верхний регистр.
//Применяется кодировочная таблица с кириллическим набором: CP866.
function ToUpperCase(aStr : String) : String;
var
  Code : Byte;
  i    : Integer;
begin
  //Устанавливаем длину результирующей строки такую же, как у исходной строки.
  SetLength(Result, Length(aStr));
 
  for i := 1 to Length(Result) do begin
 
    //Извлекаем код, соответствующий очередному символу строки.
    //Code := Ord(aStr[i]);  //Способ 1 - использована функция Ord().
    //Code := Byte(aStr[i]); //Способ 2 - применено приведение к типу Byte.
    Code := Byte(aStr[i]);
 
    case Code of
 
      //Преобразования для букв кириллицы.
 
      160 .. 175 : //Буквы: "а".."п".
        begin
          //Result[i] := Chr(Code - 32);  //Способ 1 - использована функция Chr().
          //Result[i] := Char(Code - 32); //Способ 2 - применено приведение к типу Char.
          Result[i] := Char(Code - 32);
        end;
      224 .. 239 : //Буквы: "р".."я".
        begin
          Result[i] := Char(Code - 80);
        end;
      241, 243 :        //Буквы: "ё" и "э".
        begin
          Result[i] := Char(Code - 1);
        end;
 
      //Преобразования для букв латиницы.
 
      97 .. 122 : //Все буквы латиницы: "a".."z".
        begin
          Result[i] := Char(Code - 32);
        end;
 
      //Все остальные символы (коды) не изменяем.
 
      else
        begin
          Result[i] := aStr[i];
        end;
    end;
  end;
end;
 
var
  StrTmp : String;
 
begin
 
  Writeln(AnsiToOem( 'Эта программа преобразует буквы строки в верхний регистр.' ));
  Writeln(AnsiToOem( 'Преобразования производятся согласно кодовой странице CP866.' ));
  repeat
    Writeln(AnsiToOem( 'Для преобразования введите строку и нажмите клавишу ENTER.' ));
    Writeln(AnsiToOem( 'Чтобы выйти из программы нажмите клавишу ENTER без ввода строки.' ));
    Readln(StrTmp);
    if StrTmp = '' then begin
      Continue;
    end;
    Writeln(AnsiToOem( 'Результат преобразования:' ));
    Writeln(ToUpperCase(StrTmp));
  until StrTmp = '';
 
end.