Разработать блок-схему и программу на языке Паскаль

[Denis19061989]

Дана целочисленная прямоугольная матрица. Определить номер строки, в которой находиться самая длинная серия одинаковых элементов. Помогите пожалуйста, срочно надо.......

Вот примерный код программы который смог сделать, но он не работает, поправьте кто может?

Procedure seria (var a: matr);
var
number,maxlen,slen: integer;
begin
maxlen:=1; number:=1;
for i:=1 to n do
begin
slen:=1;
for j:=1 to m-1 do
if (a[i,j]=a[i,j+1]) then
else
inc(slen);
begin
if slen>maxlen then
begin
number:=i;
maxlen:=slen;
end;
slen:=1;
end;
if slen>maxlen then number:=i;
end;
end;
begin
writeln ('введите матрицу');
readln(n,m);
nol(b);
seria(b);
x:=1;
z:=1;
for i:=1 to n do
for j:=1 to m do
if b[i,j]=0 then z:=b[i,j];
if b[i,j]=b[i,j+1] then x:=b[i,j];
writeln(z,x);
end.