массивы

[Ляйсан9517]

Дорогие, программисты. Помогите, пожалуйста, выполнить задание.
Дан массив он вводится с помощью генератора случайных чисел,как составить массив я знаю, примерно так

PHP код:

var
  Form1: TForm1;
  N: integer;
  M: array of integer;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Randomize;
N:=StrToInt(Edit1.Text);
SetLength(M,N);
Edit2.Text:=' '; {Очистка окна Edit2}
For i:=0 to N-1 do {заполнить массив слуайными значениями целых чисел}
begin
M[i]:=Round(Sin(Random(1000))*1000);
Edit2.Text:=Edit2.Text+' '+IntToStr(M[i]);
end;
end; 


Надо Вставить элемент со значением К после всех четных элементов, начинающихся на цифру К.
как составить не понимаю( помогите, заранее спасибо

[ZX Spectrum-128]

Условие запишется так:

If (not odd(i)) and (strtoint(inttostr(m[1]))=k) then
  ...

После того, как элемент найден, нужно выполнить сдвиг элементов массива на 1 (это есть в faq на форуме) и можно вставлять элемент массива.