Составить задачку по информатике в паскаль abc с командой "while"1.Вывести все

1.
var a,b,h:integer;
begin
readln(a,b);
if alt;b then h:=1 else h:=-1;
 while alt;gt;b do
  begin
   write(a,' ');
   a:=a+h;
  end;
writeln(a);
end.

Пример:
7 12
7 8 9 10 11 12

2.
var a,b:integer;
begin
readln(a,b);
if alt;b then
 while alt;=b do
  begin
   write(a,' ');
   a:=a+1;
  end
else
 while agt;=b do
  begin
  write(a,' ');
  a:=a-1;
  end;
end.

Пример:
12 7
12 11 10 9 8 7

Var
  a, b: integer;

begin
  readln(a, b);
  if (a gt; b) then swap(a, b);
  while (b - a gt;= 0) do
  begin
    Write(a, ' ');
    inc(a);
  end;
end.