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

program noname; uses crt; var a:array[1..100] of integer; i,n,k:byte; begin clrscr; for i:=1 to 20 do begin randomize; 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 do if a[i]<0 then n:=n+1; writeln; writeln(k,'-номер последнего четного'); writeln(n,'-число отрицательных элементов до ', a[k]) end.