Помогите, пожалуйста, решить данную задачу. Язык Pascal.

var
a,b,c:integer;
z: array [1..20] of integer;
begin
randomize;
for a:=1 to 20 do
begin
z[a]:=random(9999);
writeln(z[a]);
end;

дальше затруднительней и я точно не знаю сами подумайте

Вот. Случайным образом выбирается числа в промежутке до 1000, если надо поменяй. Сортируются по возрастанию, если надо отсортировать по убыванию, поменяй знак "". Вроде правильно работает...

var i,u,tmp: integer;
a: array [1..20] of integer;
begin
randomize;
for i:=1 to 20 do begin a:=random(1000); write(a,' '); end;
writeln;
for i:=1 to 20 do
begin
for u:=1 to 20 do
begin
if(a;
a:=a;
a:=tmp;
end;
end;
end;
for i:=1 to 20 do write(a,' ')
end.