Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 20, затем первый элемент меняет местами с максимальным
элементом.Выведите на экран исходный и полученный массивы.

пожалусто

создавай вопрос, если смогу - помогу.

Не получилось

var mass:array[1..10] of integer;        g,s,i,max:integer;beginrandomize;writeln('первоначальный массив');for i:=1 to 10 dobegins:=s+1;mass[s]:=random(21);if max<mass[s] then max:=mass[s];writeln(mass[s]);end;writeln('конечный массив');g:=mass[1];for i:=1 to 10 do beginif mass[i]=max then mass[i]:=g;mass[1]:=max;writeln(mass[i]);end;end.