Для матрицы из двух столбцов и 10 строк отпечатать номер каждой строки, элементы которой имеют совпадающие значения, и число таких строк — Pascal(Паскаль)

program fg;

var
  A: array [1 .. 10, 1 .. 2] of integer;
  n, i, j: integer;

begin
  for i := 1 to 10 do
    for j := 1 to 2 do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;

  writeln('Vot vvedennaia vami Matrica "A":');
  for i := 1 to 10 do
  begin
    writeln;
    for j := 1 to 2 do
      write(A[i, j]:3, ' ');
  end;
  n := 0;
  writeln;
  writeln;
  write('STROKI: ');
  for i := 1 to 10 do
    if A[i, 1] = A[i, 2] then
    begin
      write(i, ', ');
      inc(n);
    end;
  writeln;
  writeln('Kol-Vo takix STROK: ', n);

  readln;

end.