помоги те плииз 40 баллов даю напишите этуже программку(вывод заключительного чётного

эта программка ваша возвратит для вас первый четный, а не последний, если желаете заключительный то либо for i := 1 to n, или то что у вас но c break

var a: array[1..100] of integer;

n,i,s:integer;

begin

    i:=1;

    readln(n);

    while not(i=n) do

    begin

    a[i]:= random(61)-20;

    inc(i);

    end;

     

    i:=1;

    while not(i=n) do

    begin

    write(a[i],' ');

    inc(i);

    end;

     

    i:=1;

    while not(i=n) do

    begin

    if (a[i] mod 2 = 0 ) then s:=a[i];

    i:=i+1;

    end;

    writeln;

    write(s);

end.