{* Задача 252 *}

Unit ZADACH252;
Interface
Implementation
Begin
 writeln('Дан символьный файл f . Получить файл g , образованный
из файла f заменой всех его прописных (больших) букв
одноименными строчными (малыми).');
End.

Program zadach252;

Uses zadach252.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  inF      : text;
  outF     : text;
  inFName  : String;
  outFName : String;
  ch       : char;
Begin
  ClrScr; {очистка экрана}
  write('Введите имя входного файла: ');
  readln(inFName);
  assign(inF, inFName); {$I-}
  reset(inF); {открыть файл на чтение}
  {$I+}
  If IOResult0 Then
  Begin
    writeln('Ошибка открытия файла на чтение!!!');
  End;
  Else Begin
    write('Введите имя выходного файла: ');
  readln(outFName);
  assign(outF, outFName); {$I-}
  rewrite(outF); {открыть файл на запись}
  {$I+}
  If IOResult0 Then
  Begin
    writeln('Ошибка открытия файла на запись!!!');
    close(inF); {* Закрытие файла *}
  End;
  Else Begin
    While Not EOF(inF) Do {* Если в файле ещё есть данные, то продолжаем *}
    Begin
      read(inF, ch);
      If (ch In ['A'..'Z']) Or (ch In ['А'..'П']) Then {преобразования}
        ch := chr(ord(ch) + 32)                            {прописной буквы}
      Else If ch In ['Р'..'Я'] Then {в строчную для латинскийх}
        ch := chr(ord(ch) + 80); {и русских букв}
      write(outF, ch);
    End;
  close(inF); {* Файл inF будет закрыт *}
  close(outF); {* Файл outF будет закрыт *}
End;

  End;
  write('Для выхода нажмите любую клавишу ...');
  readkey; {* Ждем нажатия пользователя *}
  End....