НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ! Нахождение суммы чисел в матрице, ввод чисел осуществить из файла matrix.txt вывод на экран.

//Pascal ABC.NET v3.1 сборка 1172Constn=3; //количество строкm=4; //количество столбцовVar f:text; ma:array[1..n,1..m] of integer; i,j,s:integer;begin assign(f,'matrix.txt'); reset(f); for i:=1 to n do begin  for j:=1 to m do   begin   read(f,ma[i,j]);   s:=s+ma[i,j];   end; end; close(f); for i:=1 to n do begin  writeln;  for j:=1 to m do   write(ma[i,j]:4); end; writeln; write(s);end.matrix.txt:1 2 3 44 5 6 47 8 9 4Вывод программы:   1   2   3   4   4   5   6   4   7   8   9   457