Помогите сделать это в PASCAL, чтобы можно было выполнить все условия

Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y как вспомогательным:
Var
х, у: array [1..70] of real;
k: 1..69;
а) все отрицательные элементы массива x перенесите в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов;
б) элементы массива х циклически сдвиньте на k позиций влево.

спасибо большое :-)

{Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу,воспользовавшись массивом y как вспомогательным:а) все отрицательные элементы массива x перенесите в его начало,а все остальные — в конец, сохраняя исходное взаимноерасположение как среди отрицательных, так и среди остальных элементов;б) элементы массива х циклически сдвиньте на k позиций влево.}Var x, y: array [1..70] of real; k: 1..69; n, i,j,  k1: integer; c :real;begin writeln('введите кол-во элементов массива'); readln(n); writeln('введите элементы массива'); for i:=1 to n do read(x[i]); k1:=0;{все отрицательные элементы массива x перенесите в начало массива y} for i:=1 to n do if x[i]<0 then begin   k1:=k1+1;   y[k1]:=x[i] end;{все не отрицательные элементы массива x переносим в конец массива y} for i:=1 to n do if x[i]>=0 then begin   k1:=k1+1;   y[k1]:=x[i] end; for i:=1 to n do   x[i]:=y[i]; for i:=1 to n do   write(x[i]:8:2);{б) элементы массива х циклически сдвиньте на k позиций влево.} writeln('введите k'); readln(k); for i:=1 to n do y[i]:=x[i]; for i:=1 to n-k do x[i]:=x[i+k]; for i:=1 to k do x[n-k+i]:=y[i]; for i:=1 to n do write(x[i]:8:2);end.