Вотделе работают 15 человек. их зарплата колеблется от 4500 до 7800 рублей. вывести ведомость начисления зарплаты, используя генератор случайных чисел. pascal

{ В отделе работают 15 человек. Их зарплата колеблется от
4500 до 7800 рублей. Вывести ведомость
начисления зарплаты, используя генератор случайных чисел.}

const pers = 15;
var a:word;
    i:byte;
    sum:real;

begin
  randomize;
  sum:=0;
  for i:=1 to pers do begin
    a:=random(45,78)*100;
    writeln('Работник ',i:2,'. Зарплата ', a);
    sum:=sum+a;
  end;
  writeln('Итого к оплате: ', sum:10);
end.