Массив(совпадение строк)

uses crt;
const max=20;
type mas=array[1..max] of integer;//массив - строка матрицы
     matr=array[1..max] of mas;//матрица - массив строк
procedure Vvod(var mt:matr;var x,y:byte);//создание матрицы
var i,j:byte;
begin
repeat
write('Количество строк от 3 до ',max,' =');readln(x);
until x in [3..max];
repeat
write('Количество столбцов до ',max,' =');readln(y);
until y in [1..max];
writeln('Введите ',x*y,' элементов матрицы:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
writeln('Матрица:');
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function Sovp(v1,v2:mas;y:byte):boolean;//проверка совпадения двух векторов
var i:byte;
begin
Sovp:=true;
for i:=1 to y do
if v1[i]<>v2[i] then//если какой-то элемент не совпал
 begin
  Sovp:=false;
  break;
 end;
end;
function Summ(v:mas;y:byte):integer;//подсчет суммы в строке
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to y do
s:=s+v[i];
Summ:=s;
end;
function Proiz(v:mas;y:byte):longint;//то же произведения
var i:byte;
    p:longint;
begin
p:=1;
for i:=1 to y do
p:=p*v[i];
Proiz:=p;
end;
 
var a:matr;
    n,m,i,j:byte;
    s,p:integer;
begin
clrscr;;
Vvod(a,n,m);
if Sovp(a[1],a[n],m)then
 begin
  for i:=2 to n-1 do
  writeln('Строка ',i,'  сумма=',Summ(a[i],m),'  произведение=',Proiz(a[i],m));
 end
else write('Не совпадают!');
readln
end.