Из произвольной квадратной матрицы(А) вычесть произведение первой строки. Результат должен получиться в одномерном массиве(В) и найти сумму столбца записать в одномерный массив(С) — Pascal(Паскаль)

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; b: array[1..n*n] of longint; 
      i,j: byte; p: longint; c: array[1..n] of longint;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(41)-20;
     write(a[i,j]:4);
    end;
  writeln;
 end;
 p:=1;
 for j:=1 to n do
  p:=p*a[1,j];
 k:=1;
 for i:=1 to n do
  for j:=1 to n do
   begin
    b[k]:=a[i,j]-p;
    inc(k);
   end;
 for j:=1 to n do 
  for i:=1 to n do      
   c[j]:=c[j]+a[i,j];   
 
 writeln('массив b: ');
 for i:=1 to n*n do
  write(b[i]:3);
 writeln;
 writeln('массив c: ');
 for i:=1 to n do
  write(c[i]:4);
end.