Попробовал сам написать код, но функция не хочет правильно работать. Можете помочь найти ошибку
function Test(A: matrix;k:integer):boolean;
var i:integer;
begin
if k=n then
for i:=1 to n do
if A[k,i]=A[1,i] then Test:=true
else Test:=false;
if k<>n then
for i:=1 to n do
if A[k,i]=A[k+1,i] then Test:=true
else Test:=false;
end;