Найти номера строк, элементы в каждой из которых одинаковы

program upr1;
const n=3;
type mas=array[1..n,1..n] of integer;
procedure vv1(var a:mas);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
procedure vv2(a:mas);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
procedure vv3(a:mas);
var i,j:integer;
s:boolean;
begin
for i:=1 to n do
begin
s:=true;
for j:=1 to n-1 do
if a[i,j]<>a[i,j+1] then s:=false;
if s=true then write('все элементы равны в строках',i)
else write('строк с равными элементами нет');
end;
end;
var a:mas;
begin
writeln('введите массив');
vv1(a);
vv2(a);
vv3(a);
end.

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j:integer;
f:boolean;
 
begin
 clrscr;
 for i:=1 to n do for j:=1 to m do
 begin
  write('Введите элемент матрицы A[',i,' ',j,']: ');
  readln(a[i,j]);
 end;
 
 writeln('Базовая матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
 
 for i:=1 to n do
 begin
  f:=true;
  for j:=2 to m do if a[i,1]<>a[i,j] then f:=false;
  if f then writeln(i,' строка');
 end;
 readln;
end.