Вычислить ср.ар. в Pascal'e

[Agiza]

Задание: A(80). Вычислить среднее арифметическое значений элементов массива A.
Проблема: не работает программа, помогите пожалуйста
Текст:

program lab4var2ch3;
uses crt;
var
a:array[1..80] of real;
i:integer;
sum,sredn:real;
begin
clrscr;
randomize;
a[i]:=1;
for i:=1 to 80 do
begin
a[i]:=random(50)+1;
write(a[i]:4);
end;
sum:=0;
for i:=1 to 80 do
sum:=sum+A[i];
sredn:=sum/80;
writeln (sredn:6:2);
end.

[Agiza]

Ой, всё, разобралась вроде)) забыла readln в конце написать, и ещё тип поменяла))

[Sam Gold]

a[i]:=1;

Вот эту строчку надо убрать, не понятно чему здесь равно i. Вот компилятор и ругается

[Agiza]

ага, это тоже)