Найти сумму элементов одномерного массива размером 5. Разделить каждый элемент исходного массива на полученное значение.Результат сохранить в том же массиве. Напечатать в одной строке — Pascal(Паскаль)

program pr1;
var sum:real;
    i:byte;
    a:array[1..5] of real;
begin
  //vvod massiva
  for i:=1 to 5 do
  begin
     writeln('Vvedite ',i,' element massiva');
     readln(a[i]);
  end;
  sum:=0;
  //zicl nahojdeniya summi elementov massiva
  For i:=1 to 5 do
  sum:=sum+a[i];
  //proverka esli summa ravna nolu
  if sum=0 then begin writeln('Delenie na nol');exit;end;
  For i:=1 to 5 do
  begin
     //delenie kajdogo elementa massiva na summu elementov massiva
     a[i]:=a[i]/sum;
     //vivod massiva
     write(a[i]:4:3,',');
  end;
end.

//vvod massiva
  sum:=0;
  for i:=1 to 5 do
  begin
     writeln('Vvedite ',i,' element massiva');
     readln(a[i]);
     sum:=sum+a[i];
  end;