Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру

program lab64;
uses crt;
const
  n = 5;
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of real;
procedure Pr1(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
    for y := 1 to n do
      a[x, y] := random(10);
end;
 
procedure Pr2(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
  begin
    for y := 1 to n do
    begin
      write(a[x, y]:2);
      end;
    writeln;
  end;
end;
 
procedure Pr3(n: integer);
var
  x: integer;
  function F1(n: integer;var x:integer): real;
  var
    y: integer;
  begin
    b[x] := 0;
    for y := 1 to n do
    begin
      b[x] := b[x] + a[x, y];
    end;
    F1 := b[x];
  end;
 
begin
  for x := 1 to n do
  begin
    F1(n, x);
    b[x] := F1(n, x);
  end;
  write(b);
end;
begin
  Pr1(n);
  Pr2(n);
  writeln;
  Pr3(n);
  writeln;
end.

program lab65;
 
uses crt;
 
const
  n = 5;
 
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of real;
 
procedure Pr1(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
    for y := 1 to n do
      a[x, y] := random(10);
end;
 
procedure Pr2(n: integer);
var
  x, y: integer;
  function F2(n: integer; var x: integer): real;
  var y: integer;
  begin
  a[x,y]:=0;
    for x := 1 to n do
    begin
      for y := 1 to n do
      begin
        write(a[x, y]:2);
      end;
      writeln;
      F2:=a[x,y ];
    end;
  end;
  procedure Pr3(n: integer);
  var
    x, y: integer;
    function F1(n: integer; var x: integer): real;
    var
      y: integer;
    begin
      b[x] := 0;
      for y := 1 to n do
      begin
        b[x] := b[x] + a[x, y];
      end;
      F1 := b[x];
    end;
 
 
  begin
    for x := 1 to n do
    begin
      F1(n, x);
      b[x] := F1(n, x);
    end;
    write(b); 
  end;
 
begin
  Pr1(n);
  Pr2(n);
  Pr3(n);
  writeln;
end;
begin
end.

procedure outMatr(a : array [,] of Integer) := a.PrintLn;
function sumRows(a : array [,] of Integer) := a.Rows.Select(r->r.Sum).ToArray;
procedure outArr(v : array of Integer) := v.PrintLn;
begin
  var n := ReadInteger('n =');
  var a := MatrRandomInteger(n,n);
  outMatr(a);
  var v := sumRows(a);
  outArr(v);
end.