Вывести на экран числа от - 5 до 5 в прямом и обратном порядке, Pascal ABC)

program zz1;

var i:integer; / / заводим переменную для цикла

begin

writeln ('прямой порядок');

for i:=-5 to 5 do / /организуем перебор всех чисел от - 5 до 5

write (i,' '); / / выводим это число на экран в строчку через пробел

writeln; / /переходим на новую строку для вывода

writeln ('обратный порядок');

for i:=5 downto - 5 do / /организуем перебор всех чисел от 5 до - 5

write (i,' '); / / выводим это число на экран в строчку через пробел

end.