Как вывести новый массив, в котором число(повторяющееся) встречается 1 раз?

[Artur1992]

Язык ПАСКАЛЬ.Вот код, в котором нужно найти число(допустим в массиве число повторяется несколько раз), и вывести новый массив, в котором число встречается 1 раз. Помогите пожайлуста, вывести новый массив, в котором число(повторяющееся) встречается 1 раз.

uses crt;
const maxn=100;
var
a:array[1..maxn,1..maxn] of real;
i,j,k,n:integer;
begin;
clrscr;
write('Vvedite kolichestvo elementov:');
readln(n);
write('Vvedite massiv:');
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
write('Vvedite chislo dlya poiska:');
readln(k);
for i:=1 to n do
for j:=1 to n do
if k=a[i,j] then write('a[',i,j,']');
end.