Pascal assignment_1

assi_1

for i:=1 to 15 do
	begin
		if data[i, 7] <> '*' then
			begin
				count:= 1;
				for j:=i+1 to 15 do
					begin
						equals:= true;
						for h:=8 to 20 do
							if data[i,h] <> data[j,h] then
								equals:=false;
						if equals then
							begin
								count:= count + 1;
								data[j, 7]:= '*';
							end;
					end;
				write(count, ' - ');
				for h:=8 to 20 do
					write(data[i,h]);
			end;
	end;