Вывести последовательность чисел от 1 до 5 и обратно от 5 до 1 сделать и while в паскале

через for

var i,x: integer;

begin

x : = 1;

  for i : = 1 to 5 do

  begin

    write(i);

  end;

  writeln;

или так через while

var i,x: integer;

begin

  x :
= 1;

  while x< 5 do

  begin

    write(x);

  end;

  writeln;

p.s. paskalhren'