Сделайте идентификацию по структуре реферата
реферат құрылымы бойынша сәйкестендіру жасаңыз

Procedure TForm1.btnRunClick(Sender: TObject);
var
    s: string;
    sum, x, i, count: integer;

begin
    s := edtVvod.Text;
    lblVyvod.Caption := FloatToStr(0);
    
    sum := 0;
    count := 0;
    
    for i := 1 to length(s) do
    begin
        if i mod 2 = 0 then Continue;
        x := StrToInt(s[i]);
        if x mod 2 = 1 then Continue;
        sum := sum + x;
        count := count + 1;
    end;
    
    if count > 0 then
        lblVyvod.Caption := FloatToStr(sum / count);
end;

убрала кое что ненужное
отформатировала
увы проверить негде, так что на ваш страх и риск.
Логика правильная

Using System;
namespace СиШарп
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("N = ");
            int N = int.Parse(Console.ReadLine());
            Console.Write("A({0}):",N);
            int[] A = new int[N];
            Random RND = new Random();
            for (int i = 0; i < N; i++)
            {
                A[i] = RND.Next(-N,N+1);
                Console.Write(" {0}",A[i]);
            }
            for (int i = N - 1; i >= 0 && A[i] < 0; i--) ;
            int L = 0, j = N;
            while (j > 0)
                if (A[--j] > 0) L++;
                else
                    if (L < 2) L = 0;
                    else break;
            for(int i = j + L + 1; i < N; i++)
                A[i - L] = A[i];
            Console.Write("\nA({0}):",N-L);
            for (int i = 0; i < N - L; i++)
                Console.Write(" {0}",A[i]);
            Console.ReadKey();
        }
    }
}