Массивы с котом программа на паскаль

program MoveArray;

const
N = 10;

var
x: array[1..N] of Integer;
y: array[1..N] of Integer;
i, j: Integer;

begin
// Заполняем массив x
for i := 1 to N do
x[i] := Random(21) - 10; // случайные числа от -10 до 10

// Выводим массив x до изменения
writeln('Массив x до изменения:');
for i := 1 to N do
write(x[i], ' ');
writeln;

j := 1;

// Копируем все элементы массива x в начало массива y
for i := 1 to N do
begin
if x[i] > 0 then
begin
y[j] := x[i];
Inc(j);
end;
end;

for i := 1 to N do
begin
if x[i] <= 0 then
begin
y[j] := x[i];
Inc(j);
end;
end;

// Копируем массив y обратно в массив x
for i := 1 to N do
x[i] := y[i];

// Выводим массив x после изменения
writeln('Массив x после изменения:');
for i := 1 to N do
write(x[i], ' ');
writeln;

end.