Строка с минимальным числом элементов Опции

[REC0N]

Всем привет! У меня небольшая проблема с задачаю.Помогите пожалуйста.
Условие!
Данная матрица NxN.
Нужно вывести номер строки с минимальным число элементов что равны заданному (заданое число вводит пользователь).
Итак, программа работает, только есть одно "но", если пользователь вводит матрицу в которой все строки одинаковые (Пример: Матрица 3х3!Во всех строках присутствует число,например "1") и пользователь вводит число "1" то минимальным будет только первая строка, и программа ее выведет на экран.
Как сделать так чтобы выводило порядковые номера всех трех строк (поскольку они же равние).
Вот сама программа:

program matryca;
  uses crt;
  const nmax = 100;

  var Matr: array [1 .. nmax, 1 .. nmax] of integer;
	  Vec: array [1 .. nmax] of integer;
	  n, m, i, j, k, l, min: integer;

  begin
		repeat
		write ( 'Введите количество строк в матрице:');
		readln (m);
		write ( 'Введите количество столбцов в матрице:');
		readln (n);
		if m <> n then writeln ( 'Матрица должна быть квадратная!');
		until m = n;


		/ / Ввод матрицы

		writeln ( '						 ');
		writeln ( '--------------------');
		writeln ( 'Ввод матрицы');
		writeln ( '--------------------');
		writeln ( '						 ');

				for i: = 1 to n do
				for j: = 1 to m do begin

		write ( 'Введите элемент матрицы A (', i ,';', j ,'):');
				readln (Matr [i, j]);
		end;

		/ / Вывод матрицы

		for i: = 1 to n do begin
		write ('(', i, '-ю строку');
		for j: = 1 to m do
						 write (Matr [i, j], '');
						 writeln;
		end;

		/ / Ввод числа

				  write ( 'Введите число:');
				  read (k);

						   for i: = 1 to n do begin vec [i]: = 0;
						   for j: = 1 to m do begin
						   
						   if k = matr [i, j] then vec [i]: = vec [i] 1
						   end;
				  end;

				  for i: = 1 to n do begin
				  write ('(', i, '-ю строку');
				  write (vec [i]);
				  writeln;
				  end;
				  
	   min: = 1;
				  for i: = 2 to n do begin

					if vec [i] <vec [min] then min: = i;

				  end;
				  
				  write ( 'Строка с минимальным значением:');
				  writeln (min);

end.

[Lapp]

Как сделать так чтобы выводило порядковые номера всех трех строк (поскольку они же равние).

Предпоследнюю строку (writeln (min);) замени на следующее:

for i:=1 to n do if vec[i]=vec[min] then WriteLn(i);

Пожалуйста, используй правильные тэги (см. п.2 правил вверху страницы), а также:

форматируй
       свои                                                                          программы
                                    нормально
                                                           очень   трудно
                          же
        читать
                                                                            твой
                                                код
                               !