Повторяющиеся элементы в двумерном массиве.

[rusasha]

ПОмогите пожалуйста рещить задачу. Необходимо определить, есть ли повторяющиеся элементы в каждой строке и какое количество.

[rusasha]

Вот код
program xxx;
uses crt;
type massiv=array [1..10,1..10] of real;
var x,z:real;
rep:array [1..2,1..10] of real;
i,j,a,b:integer;
y:massiv;
mas:text;

begin
clrscr;
x:=5.2;
for i:=1 to 10 do
for j:=1 to 10 do begin
y[i,j]:= cos((exp(0.25*ln(x)))-(0.5*exp(0.5*ln(x)))+(0.25*exp(0.75 *ln(x))));
x:=x+0.45;
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(y[i,j]:5:3,' ');
end;
writeln;end;
writeln;
writeln;

assign(mas,'mas.txt');
rewrite(mas);
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(mas,y[i,j]:5:3);
write(mas,' ');
end;
writeln(mas);end;
close(mas);

a:=1;b:=1;
for i:=1 to 10 do
for j:=1 to 10 do begin
if rep[a,b]=y[i,j] then j:=j+1;
if y[i,j]=y[i,j+1] then begin rep[a,b]:=y[i,j]; rep[a+1,b]:=rep[a+1,b]+1;b:=b+1;end;end;
for a:=1 to 2 do begin
for b:=1 to 10 do begin
write(rep[a,b]:5:3,' ');
end;
writeln;end;
readkey;
end.