Массив паскаль помогите пожалуйста: заполнить массив 20-ю целыми числами из диапозона -50;50. найти номер последнего четного элемента и количество отрицательных до последнего четного

program noname;uses crt;vara:array[1..100] of integer;i,n,k:byte;beginclrscr;for i:=1 to 20 do beginrandomize;a[i]:=random(100)-50;;write(a[i],' ');if (a[i] mod 2=0) and (a[i]<>0) then k:=i;end;n:=0;for i:=1 to k doif a[i]<0 then n:=n+1;writeln;writeln(k,'-номер последнего четного');writeln(n,'-число отрицательных элементов до ', a[k])end.