Создать в своей папке файл с разрешением .txt, который будет содержать целые числа, расположенные в виде матрицы. Написать программу, которая будет а)считывать элементы из текстового файла; б)считать суммы элементов строк и записать эти суммы в одномерный массив — Pascal(Паскаль)

uses crt;
var f:text;
    a,sm,k:integer;
    b:array[1..100] of integer;
    n,m,i:byte;
    nf:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
{прочитаем 1 строку, узнаем сколько в ней чисел(m)}
m:=0;
while not eoln(f) do
 begin
  read(f,a);
  m:=m+1;
 end;
close(f);
reset(f);{снова откроем файл и прочитаем весь}
n:=0;k:=0;
while not eof(f) do
 begin
  read(f,a);{читаем число}
  write(a:4);{выодим в строку}
  k:=k+1;{считаем}
  sm:=sm+a;{складываем}
  if k=m then{конец строки}
   begin
    k:=0;{обнуляем счетчик}
    n:=n+1;{новая сумма}
    b[n]:=sm;{посчитанную в массив}
    sm:=0;{обнуляем сумму}
    writeln;{вывод с новой строки}
   end;
 end;
close(f);
writeln('Массив сумм по строкам:');
for i:=1 to n do
write(b[i],' ');
readln
end.