Помогите Написать программу на Pascal. запросить масив из 10 эл. , найти среднее, обнулить те, кот. выше среднего и отобр

var
a:array[1..10] of integer;
i,b:integer;
sr:real;
begin
for i:=1 to 10 do begin
readln(a);
sr:=sr+a;
end;
sr:=sr/10;
for i:=1 to 10 do begin
if a>sr then
a:=0;
end;
for i:=1 to 10 do
write(a);
end.