Помогите напишите задачку и ее решение в паскале. МассивыСоставить программу для

Var a,b,c:integer;
n:array [1..10] of integer;
begin
writeln('введите номера элементов для сопоставления');
readln(a,b);
randomize;скажите что поглядели эту функцию в вебе и она нужна для подготовки программки к применению функции рандом
for c:=1 to 10 do begin
n[c]:=random(-20,20);так мы в массив ставим случайное число в спектре от -20 до 20
writeln(n[c]);
end;
if n[a]lt;n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b)
else writeln('наименьший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a);
end.