Помогите написать программу, которая читает числа с 1го файла, переводит их в 8ю систему и записывает в другой. Файл из которого брать числа- codfio.txt

Во вложении - полученный файл bincod.txt

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!function DecToOctal(n:integer):string;begin  var r:string:='';  while n>=8 do (r,n):=(n mod 8+r,n shr 3);  Result:=n+rend;begin  WriteAllText('bincod.txt',      ReadAllText('codfio.txt').ToIntegers      .Select(t->DecToOctal(t)).JoinIntoString)end.