Вывести числа от a до b, a и b вводят пользователи блок схему и программу на паскале

Program chisla;
var A,B: LongInt; i: ShortInt;
begin
write('Введите 2 целых числа >>');
readln(A,B);
for i:= A to B
do write(i, ', ');
end.

//Программа выведет подрят через запятую все числа от A до B.

Program z1; 
var   a, b, i: integer; 

begin
    writeln('Введите A:'); 
  readln(a);
   writeln('Введите B:');
   readln(B);  
i := 0;  
 for i := A to B do  
 begin  
  Writeln(i); 
  end;
 end.