Дана матрица А (n,m). Отпечатать номера только тех строк…

Var n,m,i,j,k,s,s1: longint; y: array[1… 10000,1… 10000] of longint; o: array[1… 10000] of longint; beginread (n,m); for i: =1 to n dofor j: =1 to m doread (y[i,j]); for i: =1 to n dofor j: =1 to n doif j<>i thenbegin for k: =1 to m do if y[i,k]=y[j,k] then inc (s); if s=m then beginif o[i]=0 then begin writeln (i); o[i]: =1; end; if o[j]=0 thenbegin writeln (j); o[j]: =1; end; inc (s1); end; s: =0; end; writeln (s1); end.