Заключительную задачку, очень надобно

Var i,j,x,y  : word;
begin
  x:=1;
  y:=50;
  while ygt;0 do
    begin
      for i:=x to (x+4) do write (i,' ');//выводит числа от 1 до 50
      x:=x+5;
      writeln;
      for j:=y downto (y-4) do write (j,' ');//выводит числа от 50 до 1
      y:=y-5;
      writeln;
    end;
end.