Определить максимальную сумму строки матрицы

type
  mas = array[1..6] of integer;
  matr = array[1..6] of mas;
 
procedure Vvod(var mt: matr; x: byte; c: char);
var
  i, j: byte;
begin
  writeln('Матрица ', c);
  for i := 1 to x do
  begin
    for j := 1 to x do
    begin
      mt[i, j] := random(20) - 10;
      write(mt[i, j]:5);
    end;
    writeln;
  end;
end;
 
function Summ(v: mas; x: byte): integer;
var
  i: byte;
  s: integer;
begin
  s := 0;
  for i := 1 to x do
    s := s + v[i];
  Summ := s;
end;
 
procedure Vektor(mt: matr; x: byte; var v: mas; c: string);
var
  i: byte;
begin
  writeln('Вектор ', c);
  for i := 1 to x do
  begin
    v[i] := Summ(mt[i], x);
    write(v[i], ' ');
  end;
  writeln;
end;
 
function FindMax(v: mas; x: integer): integer;
var
  i: byte;
  max: integer;
begin
  max := v[1];
  for i := 2 to x do
    if v[i] > max then
      max := v[i];
  findmax := max;
end;
 
var
  a: matr;
  va: mas;
 
begin
  randomize;
  Vvod(a, 6, 'A');
  Vektor(a, 6, va, 'Va');
  write('Максимальная сумма строки: ', findmax(va, 6));
end.