Найти среднее арифметическое всех положительных целых чисел от a до b (b> =a) если таких чисел нет то вывести сообщение "таких чисел нет" программа на паскале (net или abc)

Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
End.