дан целочисленный массив А(a1...an).образовать новый массив, состоящий из элементов исходного, заканчивающий на цифру к.
пожалуйста

program array1; var a: array[1..10] of integer; N, i: integer; begin write('Введите N: '); readln(N); a[1] := 1; for i := 2 to N do a[i] := a[i - 1] + 2; for i := 1 to N do write(a[i],' ')end.