Очень нужна помощь!!!!!!!!!Программа паскаль!
Задание №1
В процедуре №1 создать файл, содержащий строчные буквы русского и латинского алфавита. В процедуре № 2 переписать существующий файл, заменяя все латинские буквы на заглавные латинские буквы, русские буквы на заглавные русские буквы. Преобразования символов выполнить с помощью функции Upcase

Вопрос школьника по предмету Информатика

Очень нужна помощь!!!!!!!!!Программа паскаль!
Задание №1
В процедуре №1 создать файл, содержащий строчные буквы русского и латинского алфавита. В процедуре № 2 переписать существующий файл, заменяя все латинские буквы на заглавные латинские буквы, русские буквы на заглавные русские буквы. Преобразования символов выполнить с помощью функции Upcase

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

// Внимание! Если программа не работает, обновите версию!

procedure CreateFile(p:string);

begin

  var f:=OpenWrite(p);

  Writeln(f,’В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!’);

  Writeln(f,’СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ’);

  Writeln(f,’ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник’);

  Writeln(f,’The quick brown fox jumps over the lazy dog’);

  Writeln(f,’THE FIVE BOXING WIZARDS JUMP QUICKLY’);

  f.Close

end;

procedure UpFile(p:string);

begin

  var a:=ReadAllLines(p);

  WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);

end;

begin

  var p:=ReadlnString(‘Введите имя файла (можно, с путём):’);

  CreateFile(p);

  UpFile(p);

  // контроль работы

  ReadAllLines(p).Println(NewLine)

end.

Пример работы

Введите имя файла (можно, с путём): MyTest.txt

В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!

СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ

ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК

THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG

THE FIVE BOXING WIZARDS JUMP QUICKLY