Помогите исправить программу на pascal!

1. пиши по-человечески, что ты экономишь на комментариях?
2. разбивай задачу на подзадачи
3. любая вычислительнвая программа имеет в вобщем случае такую структуру: ввод, вычисление, вывод

с учетом вышеизложенного:

(*

Программа для вычисления среднего арифметического элементов в массиве.
Массив генерируется случайным образом.

автор: ктото, 2019-01-25

изменил: А. Шниц 2019-01-25
(комментарии и логика вычисления среднего)

*)

PROGRAM q212773991;

CONST

{ размер массива }
N=10;

VAR

{ массив }
a : array [1..N] of integer;

{ переменная для суммы элементов массива }
b : real;

{ переменная для среднего арифметического }
d : real;

{ счётчик }
c : Integer;

(* -- начало программы -- *)
BEGIN

{ генерируем массив }
FOR c := 1 TO N DO a[c] := random(151);

{ выводим массив на экран }
WriteLn('Массив: ');
FOR c := 1 TO N DO Write(a[c], ' ');
WriteLn;

{ считаем сумму элементов массива }
b := 0;
FOR c := 1 TO N DO b := b + a[c];

{ считаем среднее арифметическое }
d := b/N;

{ выводим результат на экран }
WriteLn ('Среднее Арифметическое: ', d:2:2);

END.
(* -- конец программы -- *)

Проще нового сделать чем этого исправлять
aSum:=0;
for c:=0 to N-1 do begin
a[c]=random(666);
inc(aSum,a[c]);
end;
write(aSum/N);