Помогите пожалуйста. Написала программку с подпрограммой на паскале, но что-то нет

Помогите пожалуйста. Написала программу с подпрограммой на паскале, но что-то нет так. В компьютере не работает помогите отыскать и исправить ошибку.

Задание: 5.1 (на фото)

Программка:
program lab5;
const n=12;
type masiv=array[1..n] of integer;
var A,L,B
i:integer;
sr1,sr2,sr3,s:real;
procedure vvod(var x:masiv);
var i: integer;
begin
for i:=1 to n do
readln(x[i]);
end;
procedure sred(var x:masiv;n:integer;var s,sr:real);
var i:integer;
begin
s:=0;
for i:=1 to n do;
begin
s:=s+x[i];
end;
sr:=s/n;
end;
begin
vvod(A7);
vvod(L12);
vvod(B8);
sred(A,7,sr1);
sred(L,12,sr2);
sred(B,8,sr3);
y:=(sr1+sr2+sr3)/3;
writeln('y=',y:5:3);
end.