Помогите с текстовой прогой

[Aleksandr H.]

В класическом TP7 который использовал ASCII без кирилицы можна так было сделать:

uses crt;
var s: string;
i:integer;
begin
clrscr;
readln(s);
i := 2;
while i<=Length(s) do
 begin
      if s[i] in ['a'..'z'] then
         begin
                 s[i] := chr(ord(s[i])+32);
         end
      else
      if (s[i] in ['0'..'9']) or ( (s[i]=' ') and (s[i-1] = ' ')) then
        delete(s,i,1);
      end
      else
         inc(i)
 end;
writeln(s);
readln;
end.

[Dvoishnik]

точно, если я нечего не путаю то для кириллицы условие

 if s[i] in ['А'..'Я'] then
         begin
                 s[i] := chr(ord(s[i])+32);
         end

тоже будет верно

[Aleksandr H.]

Точно, у меня ['a'..'z'] а надо ['A'..'Z']
Большие идут перед маленькими.

ну и тогда ТС останеться мелкая допилка, которую не сделали

[Serge_Bliznykov]

ещё пара примеров конвертации регистра букв для кириллицы для стандартного Паскаля: тыц

[Валерв]

Спасибо большое! Выручили!