Работа в паскале составьте таблицу значений функции 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.