Пожалуйста посчитайте написать программу в Pascal!

begin
  var a:=ReadArrReal('Вводите:',ReadInteger('Кол-во чисел?'));
  Writeln('Ср.арифметическое равно ',a.Average)
end.


Кол-во чисел? 5
Вводите: 3.18 4.7 2.94 4 6.2
Ср.арифметическое равно 4.204



const
  nn=100;
var
  n,i:integer;
  a:array[1..nn] of real;
  s:real;
begin
  Write('Кол-во чисел? ');
  Read(n);
  Write('Вводите: ');
  for i:=1 to n do begin
    Read(a[i]);
    s:=s+a[i]
    end;
  Writeln('Ср.арифметическое равно ',s/n)
end.