Введите в массив 5 целочисленных значений введите их в одну строку через запятую получите для массива среднее арифметическое число )) заранее

program z;

uses crt;

const n=5;

var a: array [1..n] of integer;

      i: integer;

      s: real;

begin 

      clrscr;  

      for i: =1 to n do

      readln (a[i]);

      clrscr;

      for i: =1 to n do

      begin

      write (a[i],',');

      s: =s+a[i];

      end;

      writeln;

      s: =s/n;

      writeln (s);

      readln

end.