Помогите, срочно!!!Задача по паскалю!Заполнить массив из 10 элементов положительных или отрицательных чисел во 2 массив переписать сначала отрицательные а потом положительные числа, вывести результат

Если я все правильно понял, получается что-то такое:var a,b:array[1..10] of real;i,k:integer;begink:=1;for i:=1 to 10 do readln(a[i]);for i:=1 to 10 doif a[i]<0 thenbeginb[k]:=a[i];write(b[k],' ');k:=k+1;end;for i:=1 to 10 doif a[i]>=0 thenbeginb[k]:=a[i];write(b[k],' ');k:=k+1;end;end.