Дан массив, из всех положительных чисел вычесть первый элемент массива, из всех отрицательных, вычесть число n, нулевый значения оставить без изменения — Pascal(Паскаль)

Program mas;
Uses crt;
Const k=10;
Var a: array[1..k] of shortint; i: byte; n: integer;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to k do
begin
a[i]:=random(21)-10;
Write(a[i]:3);
end;
Write('Введите значение параметра n:  ');
Readln(n);
For i:=1 to k do
begin
If a[i]>0 then a[i]:=a[i]-a[1];
If a[i]<0 then a[i]:=a[i]-n;
end;
Writeln('Результат: ');
For i:=1 to k do
Write(a[i]:3);
End.