[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.

Админ: Пользуемся тегами при оформлении кода!