Программирование . эпидемия чесотки в городе длится 20 дней. в городе n жителей (вводится пользователем). выведите в цикле распространение эпидемии, если в день заражается z=random(1000) человек. вывод в виде: 14 день – здоровых 12378 больных 2367

Var
  N, Z, sick, day: integer;
begin
  sick := 0;
  day := 1;
  write('Количество жителей: ');
  readln(N);
  while (day <= 20) and (sick < N) do
  begin
    Z := random(1000);
    sick := sick + Z;
    if sick > N then sick := N;
    writeln(day, ' день - здоровых ', N - sick, ' больных ', sick);
    day := day + 1;
  end;
end.