Перенос элементов массива

[McFrey]

Элементы массива отрицательные нужно перенести в одну часть, а положительные в другую...Помогите найти ошибку в коде

const
  Maxm = 100;

var
  a: array[1..Maxm] of integer;
  i, k, h, n, temp, code: integer;
  st1, st2: string;
  b: boolean;

begin
  writeln('Данная программа позволяет отсортировать массив');
  writeln('Введите размер массива (массив может содержать от 1 до 100 чисел)');
  repeat
    readln(st1);
    val(st1, n, code);
    if (code <> 0) or (n < 0) or (n > 100) then
      writeln('Вам необходимо ввсети размер массива, т.е. число, больше 0, но меньшее 100! Повторите ввод.');
  until (code = 0) and (n > 0) and (n < 100);
  for i := 1 to n do 
  begin
    writeln('Введите элемент массива');
    repeat
      readln(st2);
      val(st2, a[i], code);
      if code <> 0 then
        writeln('Вам необходимо ввести число.Повторите ввод');
    until (code = 0); 
  end;
  begin
    writeln('Исходный массив');
    for i := 1 to n do
      write(a[i]:3);
  end;
  h := n;
  k := 1;
  while k <= h do
  begin
    if a[k] >= 0 then 
    begin
      b := false;
      while (h > k) or (b = true) do 
      begin
        if a[h] < 0 then
        begin
          b := true;
          temp := a[k];
          a[k] := a[h];
          a[h] := temp;
        end;
        h := h - 1;
      end;
    end;
    k := k + 1;
    writeln;
    writeln('Новый массив');
    for i := 1 to n do
      write(a[i]:3);
    readln;
  end;
end.

[McFrey]

Народ спасайте

[McFrey]

Кто нибудь понял в чем дело?