ВВЕСТИ МАССИВ А(n) ЦЕЛЫХ ЧИСЕЛ. НАЙТИ MAX СРЕДИ ЭЛЕМЕНТОВ МАССИВА. ЗАМЕНИТЬ ПЕРВЫЙ И ПОСЛЕДНИЙ ЭЛЕМЕНТЫ УДВОЕННЫМ ЗНАЧЕНИЕМ MAX

var ar:array of integer;max,i,n:integer;begin;randomize;max:=-2147483648;readln(n);setlength(ar,n+1);writeln('Array:');for i:=1 to n dobegin;ar[i]:=random(-10,10);write(ar[i]:4);if ar[i]>max then max:=ar[i];end;ar[1]:=max*2;ar[n]:=max*2;writeln;writeln('Final array:');for i:=1 to n dowrite(ar[i]:4);end.