Квадратная матрица

[Andrew123456]

Дана целочисленная квадратная матрица. Определить:
1)номер строки, в которой содержится более одного заданного числа
2) упорядочить элементы побочной диагонали массива по возрастанию методом выбора.

[Arigato]

Первая часть:

nomer:=0;
for i:=1 to n do begin
  c:=0;
  for j:=1 to n do
    if a[i,j]=x then inc(c);
  if c>1 then begin
    nomer:=i;
    break;
  end;
end;
if nomer>0 then writeln('Nomer: ', nomer)
else writeln('Net takoj stroki');