Вывести от 0 до 768 - PascalABC.NET

Формулировка задачи:

var
  vivod:string;
  chislo:integer;
begin
  chislo:=0;
    write('Вывести на экран диапазон чисел от 0 до 768?(да/нет): ');
    readln(vivod);
    
  if (vivod='да') then
 
    for var cickl:=256 to 1024 do
      begin
        write(chislo,'. ');
        chislo+=1;
      end;
      
  if (vivod='нет')then write ('Действие отменено.')
  else writeln('Ошибка: неккоректный ответ.');
  
end.

При ответе да в конце выводит "Ошибка: неккоректный ответ". Вопрос: как сделать так чтобы выводил только при не правильном ответе?

Решение задачи: «Вывести от 0 до 768»

Листинг программы

 for var cickl:=256 to 1024 do
      begin
        write(chislo,'. ');
        chislo+=1;
      end
  else if (vivod='нет')then write ('Действие отменено.')
  else writeln('Ошибка: неккоректный ответ.');

Объяснение кода листинга программы

Начинается цикл от 256 до 1024 с шагом 1
В каждой итерации выводится число в переменную chislo
После каждой итерации значение переменной chislo увеличивается на 1
Если цикл не выполнен, то выводится сообщение об отмене действия
Если цикл выполнен, то выводится сообщение об ошибке