Программа в паскале написать уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. как только число становится отрицательным,команда повторения заканчивает свою работу

Var n:Integer;
Begin 
Read(n); 
while (n>=0) do
  begin 
   n:=n-1; 
  end;
Writeln('Finished');
end.

 var   
a : integer;    
begin 
readln (a);
//Цикл с условием
//Он выполнятся пока верно его условие (a>=0)   
While a >= 0 do 
 a := a - 1; 
writeln (a); 
end.