Написать программу с процедурами в паскале: составить программу, которая перезаписывает двумерный массив в файл. размеры массива задает пользователь.

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! function matrcreate(m,n: integer): array[,] of integer; begin   writeln('*** исходный массив a[',m,',',n,'] ***');   result: =matrrandom(m,n,-50,50);   result.println(4);   writeln(4*n*'-'); end; procedure matr2file(a: array[,] of integer; fn: string); begin   var f: file of integer;   rewrite(f,fn);   foreach var r in a.rows do       foreach var x in r do write(f,x);   f.close end; begin   var m: =readlninteger('количество строк в массиве: ');   var n: =readlninteger('количество столбцов в массиве: ');   var a: =matrcreate(m,n);   var s: =readlnstring('имя файла: ');   matr2file(a,s);   writeln('работа завершена') end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив a[6,9] ***   -8  47 -37    8  23  47 -18    5  18   13 -29    9 -12 -44 -27 -21 -20  11   17 -18  18  30  14 -42 -34  16  49   -4 -25  47 -28 -25 -20  39  44 -46   18 -45  39  12    3  24  27  16 -23   27  48  30  33 -38 -30  34  35 -50 имя файла: myfile.bin работа завершена

Smtp-протокол