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

Массивы
Составить программу для решения следующей задачи:
Дан массив целых чисел. Выяснить какой элемент массива больше, k-й или p-й.

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