Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while

begin
  var i:=10;
  while i>=1 do begin
    Writeln(i);
    Sleep(1000); // пауза 1с
    i:=i-1
    end;
  Writeln('Пуск!')
end.


10
9
8
7
6
5
4
3
2
1
Пуск!