Pascal ABC . Срочно !!!!!!

Заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [ -50;50], вывести максимальный элемент и минимальный элемент и их индексы.

program z;var a:array[1..20] of integer;i,mini,maxi,max,min:integer;beginrandomize;for i:=1 to 20 dobegina[i]:=random(-50,50);write(a[i],' '); {вывод массива}end;writeln; {переход на новую строку после вывода массива}max:=a[1];maxi:=1;min:=a[1];mini:=1;for i:=2 to 20 dobeginif a[i]>max then begin max:=a[i]; maxi:=i; end;if a[i]<min then begin min:=a[i]; mini:=i; end;end;writeln('max=',max,' max index=',maxi);writeln('min=',min,' min index=',mini);end.

var max,min,i:integer; a:array [1..20] of integer; b:boolean;beginfor i:=1 to 20 do beginb:=random(1);if b then do a[i]:=-1*random(50) else a[i]:=random(50);end;max:=a[1];min:=a[1];for i:=2 to 20 do beginif max<a[i] then max:=a[i];if min>a[i] then min:=a[i];end;for i:=1 to 20 do beginif max=a[i] then writeln('Индекс максимального'i);if min=a[i] then writeln('Индекс минимального'i);end;writeln('Максимальное'max);writeln('Минимальное'min);End.