PASCAL.как сделать чтобы было разность 1000-7 до отрицательного числа -1 и в конце надпись была я гуль и еще было всё в CMD​

uses crt;

var

i:integer;

begin

i:=1000;

while i>0 do

begin

writeln(i,' - 7 = ', i-7 );

i-=7;

end;

writeln('я гуль');

end.