В квадратной матрице необходимо определить количество строк состоящих из равных элементов

[poison777]

В квадратной матрице необходимо определить количество строк состоящих из равных элементов. вот что написала:

program Project1;

   {$APPTYPE CONSOLE}

    uses
  SysUtils;

const n=5;
type TVector=array[1..n] of integer;
     GVector=array[1..n] of TVector;

     var a:GVector; G, j, i:integer;
     Function Kolich(a:GVector):integer;
     var i,j,n, L:integer;
       begin
       L:=n; {количество строк сост из разных элементов}
       for i:=1 to n do j:=2;
         begin
         while j<>n do
          if a[i,j-1]<>a[i,j] then begin
            j:=n;
            L:=L-1
            else j:=j+1 end;

         end;
         Kolich:=L;
       end;


begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=1 to n do
   begin;
    for j:=1 to n do
    Writeln('vvedite',i,'yi',j,'yi','symvol');
    read(a[i,j]);
   end;
   G:= Kolich(a);
   Writeln('kolichestvo strok=',G);
   readln;
   readln;
end.

ошибка в самой функции, помогите пожалуйста, туплю

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1)

количество строк состоящих из равных элементов

 L:=n; {количество строк сост из разных элементов}

Вам не кажется, что это немного разные понятия?!

2) в цикле у Вас выполняется ТОЛЬКО один оператор:

     for i:=1 to n do j:=2;
         begin

остальное уже НЕ В ЦИКЛЕ.

и последнее.
попробуйте такой вариант:

    Function Kolich(a:GVector):integer;
    var i,j,n, L:integer;
    begin
      L:=n; {количество строк сост из разных элементов}
      for i:=1 to n do 
        begin
          j:=2;
          while (j<=n) do 
          begin
            if a[i,1]<>a[i,j] then begin
              j:=n+1; {это чтобы прервать цикл}
              L:=L-1
            end;
            j:=j+1 
          end;
        end;
      Kolich:=L;
    end;

писал прямо тут и не проверял.

[Zer0]

вроде код правильно написал Serge,
только вот интересно зачем тип было объявлять так:

TVector=array[1..n] of integer;
GVector=array[1..n] of TVector;

не проще ли просто

GVector=array[1..n,1..n] of integer; ?

и вот тут ошибочка

for i:=1 to n do
   begin;
    for j:=1 to n do
    Writeln('vvedite',i,'yi',j,'yi','symvol');
    read(a[i,j]);
   end;

надо так

for i:=1 to n do
    for j:=1 to n do
      begin
    Writeln('vvedite',i,'yi',j,'yi','symvol');
    read(a[i,j]);
   end;

[poison777]

Спасибо огромное=) а массив объявлять нас так прост учат