Дана квадратная матрица A порядка k. Определить максимальный по модулю элемент каждой строки. Результаты записать в одномерный массив. Исходная матрица вводится из файла «matr.txt»; конечный результат записывается в файл «matr.res».- Pascal(Паскаль)

Создаем текстовый файл, где в первой строке одно число, это размер матрицы К.
Затем приводиться матрица К строк по К чиснел через пробел в строках, например
4
1 2 3 4
5 6 7 8
910 11 12
13 14 15 16
Сохраняем файл как matr.txt

uses Crt;
var A:array[1..100,1..100] of integer;
B:array[1..100] of integer;
f1,f2:text; //переменные для входного и выходного файлов
k,i,j,n,max:integer;
begin
clrscr;
assign(f1,'matr.txt');//связываем с переменной входной файл
reset(f1); //открываем его для чтения
assign(f2,'mass.txt');//связываем с переменной выходной файл
rewrite(f2); //открываем его для записи
readln(f1,k);//читаем размер матрицы
writeln('Matrica A:');
for i:=1 to k do
    begin
      for j:=1 to k do
         begin
            read(f1,A[i,j]);//читаем саму матрицу
            write(A[i,j]:4);//выводим на экран
         end;
      writeln;
    end;
close(f1);//закрываем файл
for i:=1 to k do
   begin
     max:=A[i,1];
     for j:=1 to k do
     if a[i,j]>max then max:=A[i,j];
     B[i]:=max; //создаем массив максимумов строк, никакой n не надо, мы же знаем сколько у нас строк
    end;
Writeln('Massiv naibolshih znachenij v strokah::');
Writeln(f2,'Massiv naibolshih znachenij v strokah::');//выводим в файл
for i:=1 to k do
    begin
      write(B[i],' ');
	write(f2,B[i],' ');//выводим в файл
     end;
readln;
close(f2);
end.