Программа с интервалами неправильно работает

[pahanzona]

Задание:

Подсчитать количество натуральных чисел, принадлежащих интервалу [a,b) ,
в которых младшая цифра нечетная, а старшая - кратная заданной.

Я написал программу, но при вводе любых a и b программа пишет 'Недопустимый интервал' и появляется ошибка. Кто знает, как исправить?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var M, N, H, L, a, b, c: integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
M:=0;
if (a > 0)and(a < b)and(b < 100) then
  begin
  for N:= a to b do
    begin
    H:= N div 10;
    L:= N - H * 10;
    if (L mod 2 > 0)and(H mod c = 0) then M:=M+1
    else begin
    MessageDlg('Недопустимый интервал.', mtInformation, [mbOk], 0);
    end;
Label3.Caption:='Количество чисел : '+IntToStr(M);
  end;
  end;
  end;

end.

[tsar_]

Ясен пень, при запуске такого кода будет ошибка деления на ноль (Division by Zero) в строке исходника:

if (L mod 2 > 0)and(H mod c = 0) then M:=M+1

т.к. переменная c никак не обрабатывается: ей ничего не присваивают, она встерчается первый раз во фрагменте, выделенным выше жирным.
Функции div и mod- фактически функции деления, а деление на непонятное (здесь- на взявшуюся внезапно переменную с, которая = НОЛЬ) не есть хорошо.

[veniside]

Подсчитать количество натуральных чисел, принадлежащих интервалу [a,b), в которых младшая цифра нечетная, а старшая - кратная заданной.

function num(a, b, c: Integer): Integer;
var
  n, H: Integer;
begin
  result := 0;
  if (0 < c) then begin
    //
    n := a;
    while (n < b) do begin
      //
      H := n;
      while (10 <= H) do
        H := H div 10;
      //
      if (1 = (n and 1)) and (0 = (H mod c)) then
        inc(result);
      //
      inc(n);
    end;
  end;
end;

как-то так, не проверял.

которая = НОЛЬ

найти 0 в стеке не так-то и легко, хотя и возможно )