Помощь с задачей на паскале.

Здравствуйте!Никак не могу сделать задания по информатике за 10 класс,а эта работа идёт на сдачу предмета за полугодие,помогите пожалуйста

 

попробуй погуглить,задачи такой сложности гугляться на изи вообще,а если не такая задача - то поменять 2 числа в коде и всё

 

Спойлер: n1

program n1;
uses crt;
var A:array of integer;
n,i:integer;
begin
writeln ('Введите n = ');
read(n);
setlength(A,n);
for i:=0 to n-1 do
A:=Random(-5,20);
for i:=0 to n-1 do
writeln ('A[',i+1,'] = ',A);
end.

Вторую чуть позже

 

Спойлер: n2

program n1;
uses crt;
var A:array of integer;
n,i:integer;
maxA:integer;
maxi:integer;
begin
maxA:=-MaxInt;
maxi:=1;
writeln ('Введите n = ');
read(n);
setlength(A,n);
for i:=0 to n-1 do
A:=Random(-5,20);
for i:=0 to n-1 do
writeln('A[',i+1,'] = ',A,' ');
for i:=0 to n-1 do
if maxA<A then begin
maxA:=A;
maxi:=i;
end;
writeln ('Максимальный элемент = A[',maxi,'] = ', maxA);
end.

вроде так