Найти сумму четных элементов массива

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    function f(x: real): real;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Math;
 
{$R *.dfm}
var
   k, d: integer;
function TForm1.f(x: real): real;
begin
     f := k * x * x * x + d;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
   i, S, k, pos: integer;
   temp: array[1..10] of integer;
   str: String;
begin
     str := '';
     for i := 1 to 10 do
       begin
         randomize;
         temp [i] := RandomRange(-1000, 1000);
         str := str + IntToStr(temp[i]) + '   ';
       end;
     Memo1.Lines.Add(str);
     S := 0;
     k := 0;
     pos := 0;
     for i := 1 to 10 do
       begin
         if (i mod 2 = 0) then
           begin
             S := S + temp[i];
             if (pos = 0) then
               if (temp[i] mod 5 = 2) then
                 pos := i;
           end;
         str := IntToStr(temp[i]);
         if (Length(str) = 2) then
           k := k + 1;
       end;
     Memo2.Lines.Add('Сумма четных элементов: ' + IntToStr(S));
     Memo2.Lines.Add('Количество элементов массива, значения которых состоят из двух цифр: ' + IntToStr(k));
     Memo2.Lines.Add('Номер первого положительного элемента, делящегося на 5 с остатком 2: ' + IntToStr(pos));
 
end;
 
end.