Решить задачу в Паскале: Задать случайным образом 8 элементов числового массива – числа от 100 до 200. Вставить в него: а) число «-20» перед 5-ым элементом.б) число «0» перед максимальным элементом. В одной задаче должно быть и а и б (но можно и по отдельности, главное, чтобы было верно)))срочно!  жду верного и быстрого решения) 

1)program gt;var a,b:array[1..100]of integer;n,m,i:longint;beginRandomize;a[5]:=-20;for i:=1 to 8 dobeginif(i<5)then a[i]:=random(101)+100;if(i>4)then a[i+1]:=random(101)+100;end;for i:=1 to 9 dobeginwrite(a[i],);end;end.2)program gt;var a,b:array[1..100]of integer;n,m,i,max:longint;beginRandomize;max:=-20;for i:=1 to 8 dobegina[i]:=random(101)+100;if(a[i]>max)then max:=a[i];end;for i:=1 to 8 dobeginif(a[i]<>max)then write(a[i],);if(a[i]=max)then write(0,,a[i],);end;end.