дан массив, состоящий из 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных - число n ( числа k и n вводятся с клавиатуры ). Нулевые элементы оставить без изменения.

что-то не так, но спасибо

var a: array[1..7] of real;     k, n: integer;begin  readln(k, n);  for i:=1 to 7 do begin     read(a[i]);     if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];    write(a[i], ' ');