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

Если я все правильно понял, получается что-то такое:

var a,b:array[1..10] of real;
i,k:integer;
begin
k:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
for i:=1 to 10 do
if a[i]>=0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
end.