Решить по turbo pascal имеется массив a : [ 1..10 ] of integer заполненный случайным образом, числами из интервала (от 20 до 30). найти сумму

Var a:array [1..10] of integer;
      j,sum:integer;
begin
  sum:=0;
  randomize;
  for j:=1 to 10 do
  begin
    a[j]:=random(11)+20;
    write (a[j],' ');
    sum:=sum+a[j];
  end;
  writeln;
  writeln ('Summa: ',sum);
  readln;
end.