Дана матрица В(3,3) произвольных чисел. Вычислить произведение сумм элементов 1-й и 3-й строк матрицы, используя подпрограмму вычисления суммы элементов k-й строки матрицы — Pascal(Паскаль)

uses crt;
const n=3;
type mas=array[1..n] of real;
function Summa(v:mas):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+v[i];
Summa:=s;
end;
var a:array[1..n] of mas;
    i,j:byte;
    p:real;
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
writeln;
p:=Summa(a[1])*Summa(a[3]);
write('P=',p:0:2);
readln
end.