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

program zz1;

const n = 4; // задаем размерность

var

i, s, j:integer;  // задаем переменные

f1:text;

m:array [1..n,1..n] of integer;

begin

assign(f1,\'matrix.txt\');

reset(f1);

for i:=1 to n do

 for j:=1 to n do // читаем из файла числа в массив

   read(f1,m[i,j]);

for i:=1 to n do  // выводим массив на экран

    begin

for j:=1 to n do

   write(m[i,j]:4);

   writeln;

   end;

for i:=1 to n do // вычисляем сумму чисел в матрице

for j:=1 to n do

s:=s + m[i, j];

writeln(\' сумма чисел в матрице = \', s);  // выводим ответ

close(f1);

end.