Вывести на экран чисела от 1 до 100 с использованием условного оператора if...then..else - Pascal

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

Напишіть програму, яка надрукує на екрані цілі числа від 1 до 100 в рядок через пробіл: Написать программу которая напечатает на экране целые числа от 1 до 100 по порядку через пробел, только с помощью условного оператора if...then..else. Вроде бы структуру понимаю, но код не повторяется или его нужно дублировать, но до 100 дублировать это издевательство, подскажите пожалуйста, вот что я понял, и получил:

uses crt;
var i:integer;
begin
     Clrscr;
     i:=1;
     write(i:2);
     if (i<=100) then
     begin
     i:=i+1;
     write(i:4);
     end
     else
     write(i:4);
     readln;
end.

Решение задачи: «Вывести на экран чисела от 1 до 100 с использованием условного оператора if...then..else»

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

program tp7;
uses crt;
var
n,k:integer;
procedure write_numbers(i,k:integer);
begin
if k=i then write(' ',k)
else
 begin
  write(' ',k);
  write_numbers(i,k+1);
 end;
end;
begin
clrscr;
write('n=');readln(n);
repeat
write('k=');
readln(k);
until(k>0)and(k<=n);
write_numbers(n,k);
readkey
end.

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

В данном коде используется условный оператор if...then..else для вывода на экран чисел от 1 до 100. Программа использует процедуру write_numbers, которая принимает два аргумента - i и k. Если k равно i, то на экран выводится пробел и значение k. В противном случае, сначала выводится пробел и значение k, а затем вызывается рекурсивно процедура write_numbers с аргументами i и k+1. Программа начинается с инициализации переменных n и k, которые будут использоваться для ввода чисел с клавиатуры. Затем происходит очистка экрана с помощью функции clrscr. Далее, пользователю предлагается ввести число n, которое будет являться верхним пределом для вывода чисел. Число k вводится после числа n. Затем, в цикле повторяется до тех пор, пока k больше 0 и меньше или равно n. После каждого введенного числа k, вызывается процедура write_numbers с аргументами n и k+1. Если k равно n, то на экран выводится пробел и значение k. В противном случае, сначала выводится пробел и значение k, а затем вызывается рекурсивно процедура write_numbers с аргументами i и k+1. После окончания цикла, программа завершается с помощью функции readkey.