Пусть дана матрица А(n x n)

uses
  crt;
const
  n=4;{размер матрицы}
type
  MyArr=array[1..n,1..n]of integer;
  Vect=array[1..n]of integer;
var
  a:MyArr;
  b:Vect;
{процедура ввода}
procedure Writing(var a:MyArr;const n:integer);
var
  i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(8)-4
end;
{процедура вывода}
procedure Print(a:MyArr; n:integer;ch:char);
var
  i,j:integer;
begin
  writeln('Матрица ',ch,':');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{процедура формирования вектора + функция нахождения минимума}
procedure P(a:MyArr; var b:Vect; n:integer);
function FindMin(a:MyArr; n,col:integer):integer;
var
  j,min:integer;
begin
  min:=a[n,1];
  for j:=2 to col do
    if a[n,j]<min then
      min:=a[n,j];
  FindMin:=min
end;
var
  i,j,sum,tempmin:integer;
begin
  for i:=1 to n do
  begin
    sum:=0;
    tempmin:=FindMin(a,i,n);
    for j:=1 to n do
      if a[i,j]>tempmin then
        inc(sum,a[i,j]);
    b[i]:=sum
  end;
end;
{процедура вывода вектора}
procedure PrintVect(b:Vect; n:integer; ch:char);
var
  i:integer;
begin
  writeln('Вектор ',ch,':');
  write('[ ');
  for i:=1 to n do
    write(b[i],' ');
  writeln(']')
end;
{основная программа}
begin
  clrscr;
  Writing(a,n);
  Print(a,n,'A');
  P(a,b,n);
  PrintVect(b,n,'X')
end.