Урок 10.1 задание 2

Урок 10.1 задание 2

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
?
1
2
3
1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
?
1
2
3
5
3
ответ: 5 4 3
Проверить решение для пар значений:

?
1
10 20
-- должны увидеть все числа от 10 до 20, и для:

?
1
20 10
-- все числа от 20 до 10 в обратном порядке

program Project1;
var r, i, y, t:integer;
begin
 writeln('Введите целое число y');
 readln(y);
 writeln('Введите целое число t');
 readln(t);
  if ( y > t) then
    for i:=y downto t do
    write(i, '')
  else
    for r:=y to t do
    write(r, '');
  readln();
end.