ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА

Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива на экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.

паскаль массивы 

Program pr;Var a:array[1..20] of integer;    i,sum:integer;    sr:real;Beginfor i:=1 to 20 do a[i]:=random(100);for i:=1 to 20 do Write(a[i],';');sr:=0;for i:=1 to 10 do sr:=sr+a[i];sr:=sr/10;sum:=0;for i:=11 to 20 do sum:=sum+a[i];Writeln;Writeln('srednee=',sr);Writeln('summa=',sum);end.