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

Используя последующий фрагмент программки, преобразуйте массив 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]lt;0 then
 begin
   k1:=k1+1;
   y[k1]:=x[i]
 end;
все не отрицательные элементы массива x переносим в конец массива y
 for i:=1 to n do
 if x[i]gt;=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.