Pascal 10.1 урок. задача 2

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

var i, a: integer;
begin
 writeln('vvedite celoe chislo');
 readln(a);
   if (a > 1)then
     begin
      for i := a downto 1 do
        if(( i mod 5) = 0) then
         writeln( 'i = ', i);
     end
    else
      writeln('oshibka');
 readln();
end.