Помогите пожалуйста работа в паскале составьте таблицу значений функции y=2x+5 с шагом 2

Var i, n, m: integer;
H: boolean = true;

begin
  Writeln('Начальное значение х должно быть меньше конечного иначе  программа не сработает!');
  write('Введите начальное значение х >>> ');
  Read(n);
  write('Введите конечное значение х >>> ');
  Read(m);
  Writeln('====================================');
  for i := n to m do
      if H = true then
      begin
          Writeln('x=', i, ' y=', 2 * i + 5);
          h := false;
      end
      else
          H := true;
end.