Введите в массив 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.