writeln('Печатаем числа от 1 до 10');
While (i >= 0) Do 
  	{ Потеряны Begin и End? }
  writeln(10 - i);			
	{ Судя по коду, значение i - неопределено }
  i:=i-1;				
  	{ Эта команда может никогда не выполнится }