В текстовом файле с именем nbsp;matrica.txt записана последующая числовая матрица. Сделать

Program Matrica;
Var M1: array [1..4,1..5] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2: array [1..4] of integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i,j: byte; nbsp;s:integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1: text; файловая nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Переменная
Begin
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica.txt); Связывание nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;F1 с файлом matrica.txt
nbsp;nbsp;nbsp;nbsp;Reset(F1); Открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для чтения
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Read (F1, M1[I,j]); Последовательное чтение из одной строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Readln(F1) переход к
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;следующей строке
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s:=s+M1[i,j];обретаем сумму
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;частей i строчки
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;M2[i]:=s
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;Assign (F1,matrica2.txt); Связывание F1 с файлом matrica2.txt
nbsp;nbsp;nbsp;nbsp;Rewrite (F1); открытие файла
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;для записи
For i:=1 to 4 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;For j:=1 to 5 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write (F1, M1[i,j]:4);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Writeln(F1)
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;WriteLn(F1);
nbsp;nbsp;nbsp;nbsp;For i:=1 to 4 do Write(F1,M2[i]:4);
nbsp;nbsp;nbsp;nbsp;Close(F1); Закрытие файла
End.