{* Задача 289 *}

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

Program pas13719;

Uses zadach289.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s     : char;
  file1 : text;
  file2 : text;
Begin
  assign(file1, 'c:file1.txt'); {* Подключение к файлу 'c:file1.txt' через переменную file1 *}
  assign(file2, 'c:file2.txt'); {* Подключение к файлу 'c:file2.txt' через переменную file2 *}
  reset(file1); {* Открытие файла для чтения *}
  rewrite(file2); {* Подготовка переменной file2 для записи в файл *}
  While Not(EOF(file1)) Do
  Begin
    read(file1, s);
    If Ord(S) In [160..175] Then
      S := Chr(Ord(S) - 32);
    If Ord(S) In [224..239] Then
      S := Chr(Ord(S) - 80);
    write(file2, s)
  End;
  close (file1); {* Закрыть файл file1 *}
  close (file2) {* Закрыть файл file2 *}
End.