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

Program pr;
Var a:array[1..20] of integer;
    i,sum:integer;
    sr:real;
Begin
for 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.