Очень нужна помощь!!!!!!!!!Программа паскаль!
Задание №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.Closeend;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 DOGTHE FIVE BOXING WIZARDS JUMP QUICKLY