Turbo Pascal. Списки. (доделать)

[Killer_Pooh]

Помогите это пожалуйста переделать в списки... И ещё не знаю как сделать проверку на повтор элементов в массиве. Помогите разобраться пожалуйста! Заранее спасибо!

{Тема: Динамические структуры данных (списки).
Задание: 17. Составить программу заполняющую список последовательностью 
случайных различных чисел и суммирующую те его элементы, которые расположены 
между минимальным и максимальным элементом (если минимальный элемент 
предшествует максимальному).}
 
uses crt;
var n,i,min,max,t,t1,t2:integer; mas:array [1..100] of integer;
 
begin
clrscr;
 
writeln('Введите сколько всего элементов: '); readln(n);
writeln('Всего ',n,' элементов, вот они:');
 
for i:=1 to n do begin {сюда вот нужно как-нить добавить проверку на повторение элементов в массиве}
mas[i]:=random(10);
write(mas[i],' ');
end;
writeln;
writeln;
 
min:=mas[1];
max:=0;
for i:=1 to n do begin
if mas[i]>max then begin max:=mas[i]; t1:=i; end else if mas[i]<min then begin min:=mas[i]; t2:=i end ;
end;
writeln('Максимальный элемент: ',max); writeln('Минимальный элемент: ',min);
if t2>t1 then begin writeln('Максимальный элемент предшествует минимальному :('); exit; end;
 
t2:=t2+1; t1:=t1-1; t:=0;
for t2:=t2 to t1 do t:=t+mas[t2];
 
writeln('Сумма элементов между',min,' и ',max, ' = ',t);
 
writeln;
writeln('Press Enter to exit...');
readln
end.

[Killer_Pooh]