Введите с клавиатуры в массив пять целочисленных значений. Выведите их в одну строку через запятую.Получите для массива среднее арифметическое. Программу на паскале Борланд если можно(бп).

Var a: array[1..5] of integer;
     sr,i: integer;
     s: string;
     sar: real;
begin
   sr:=0;
   s:=;
   for i:=1 to 5 do
   begin
       readln(a[i]);
       sr:=sr+a[i];
       s:=s+IntToStr(a[i])+, ;
   end;
   sar:=sr/5;
   s[Length(s)]:=;
   writeln(s);
   writeln(среднее равно:  ,sar);
end.