Массивы, удаление четных номеров, обнаружение максимальных номеров.

[Memorial]

Прошу помочь написать текст программы под дельфи.
Задание 1:
Заполнить массив случайными целыми двузначными числами. Вывести на экран.
Обнаружить максимальный среди элементов с четными номерами.
Задание 2:
Заполнить массив. Удалить все рядом стоящие четные элементы.

Заранее спасибо.

[Memorial]

Вот что примерно сделал по первой, но тут ошибки в коде и не выделяет то, что нужно(

procedure TForm1.Button1Click(Sender: TObject);
Var A:array [1..60] of integer;
B:integer;
w,m,i,j:byte;
begin
Randomize; Form1.Refresh; M:=strtoint(edit1.Text);
for i:=1 to 60 do
begin
A[i]:=Random(89)+10; w:=trunc((i-1)/m);
Canvas.TextOut((i-w*m)*35, (w-1)*35, inttostr(a[i])); end;
B:=a[1]; j:=1; for i:=2 to 60 do
if a[i]>b and not odd(i) then begin B:=A[i]; J:=i end;
Edit2.Text:=inttostr(j); w:=trunc((j-1)/m);
Canvas.Pen.color:=clred;
Canvas.Rectangle((j-w*m)*35, (w+1)*35+60, (j-w*m)*35+30,
(w+1)*35+63);



end;

end.

[Dush]

вот чуток подправил ваше творение:

  M:=strtoint(edit1.Text);
  for i:=1 to 60 do
  begin
    A[i]:=Random(89)+10;
    w:=trunc((i-1)/m);
    Canvas.TextOut((i-w*m)*35, (w)*35+30, inttostr(a[i]));
  end;
  B:=a[1];
  j:=1;i:=2;
  while i<=60 do
  begin
    if a[i]>b then
    begin
      B:=A[i];
      J:=i
    end;
    i:=i+2;
  end;
  Edit2.Text:=inttostr(j);
  w:=trunc((j-1)/m);
  Canvas.Pen.color:=clred;
  Canvas.Brush.Style:=bsClear;

  Canvas.Rectangle((j-w*m)*35-10,w*35+20,(j-w*m)*35+20,w*35+50);