Задача с For

[PascalABC]

Дано целое число N (> 1) и две вещественные точки на числовой оси:
A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H —
длину каждого отрезка, а также набор точек
A, A + H, A + 2·H, A + 3·H, …, B,

[PascalABC]

Есть подобная задача:
Дано целое число N (> 1) и две вещественные точки на числовой оси:
A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H —
длину каждого отрезка, а также значения функции F(X) = 1 – sin(X) в точ-
ках, разбивающих отрезок [A, B]:
F(A), F(A + H), F(A + 2·H), …, F(B).

uses crt;
var n,i:integer;
    a,b,h,x,f:real;
begin
clrscr;
repeat
write('Количество отрезков > 1 n=');
readln(n);
until n>1;
repeat
writeln('Введите 2 точки, концы отрезка a<b:');
readln(a,b);
until a<b;
h:=(b-a)/n;
writeln('Длина отрезков=',h:0:2);
for i:=0 to n do
 begin
  x:=a+h*i;
  f:=1-sin(x);
  writeln('x=',x:5:2,'  F(x)=',f:4:2);
 end;
readln
end.

Как можно на основе этой сделать первую?

[val_nnm]

uses crt;
var n,i:integer;
    a,b,h,x,f:real;
begin
clrscr;
repeat
write('Количество отрезков > 1 n=');
readln(n);
until n>1;
repeat
writeln('Введите 2 точки, концы отрезка a<b:');
readln(a,b);
until a<b;
h:=(b-a)/n;
writeln('Длина отрезков=',h:0:2);
for i:=0 to n do
 begin
  x:=a+h*i;
  writeln('x=',x:5:2);
 end;
readln
end.