Помогите пожалуйста. Дан...

Помогите пожалуйста. Дан массив А: array [1..30] of real. Создать программу для нахождения среднего арифметического всех элементов массива.Спасибо)

 

uses crt;
var a:array [1..30] of real; i:integer; sr,s:real;
begin
  clrscr;
  randomize;
  s:=0;
  for i:=1 to 30 do
  begin
    a:=random(100)-50;
    write(a,' ');
    s:=s+a;
  end;
  sr:=s/30;
  write('sr=',sr);
end.