В чем ошибка?

[fosto]

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

У меня все время выводит 5

P.S.Для матрицы
1 2 3 4 5
1 1 1 1 8
2 8 9 7 1
1 2 3 8 4
Ответ будет 2

Program PR_63;
Uses Crt;
type mas=array [1..5,1..5] of integer;
var a:mas;
i,j:integer;
n:integer;
Procedure maximalny (x:mas; var l:integer);

var i,j,max,k:integer;
begin
k:=0;
max:=0;
for i:=1 to 5 do
begin
for j:=1 to 5 do
if x[i,j]=x[i,j] then k:=k+1 else k:=k+0;

if k>max then
begin
max:=max+k;
l:=i;
end;
end;
end;
Begin
Clrscr;
writeln ('Vvedite massiv 5x5');
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
maximalny(a,n);
writeln('Nomer stroki - ',n);
readln;
End.

[6AZblJlb]

во первых матрица у тебя тут написано 5 * 4 ну а если 5 на 5 то вот вроде так надо

Program PR_63;
Uses Crt;
  type mas=array [1..5,1..5] of integer;
  var a   : mas;
      t,y,n : integer;
   {   l   : integer;}
function maximalny (x:mas; var l:integer) : integer;

var i,j,max,o,k:integer;
begin
  k:=0; max:=0; o:=1;
  for i:=1 to 5 do
    for j:=1 to 5 do begin
    for o:=1 to 5 do
    if (a[i,j]=a[i,o]) and (j<>o) then inc(k);
    if k>max then begin  max:=k;l:=i; end;
    k:=0;

   end;
  maximalny :=l;
end;
Begin
 Clrscr;
 writeln ('Vvedite massiv 5x5');
 for t:=1 to 5 do
  for y:=1 to 5 do
   read(a[t,y]);
 n:= maximalny(a,n);
 writeln('Nomer stroki - ',n);
 readln;
End.

и я через функцию прописал а не процедуру

[fosto]

Спасибо огромное. Если бы не ты пипец мне был-бы завтра.Но все супер пипца не будет .

P.S.Если я правильно понял то ник у тебя Базыль,а у меня фамилия Базылевич.

[6AZblJlb]

))) это типо к слову)))) Базыль - Василь, вот так вот...