Очень нужна помощь!!!!!!!!!Программка паскаль!Задание 1В процедуре 1 сделать файл,

// 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-gt;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