Найти номер первого четного элемента каждого массива, используя функцию программиста

Program P12_3;
uses crt;
const n=10;
type mas=array[1..n] of integer;
var a: mas; var i,p,k:integer;
procedure Vvod(n:integer; var a: mas);
var i: integer;
var w,q: integer;
begin
writeln('Заполнение массива случайными числами.');
writeln('Введите границы массива'); 
write('От: '); read(q);
write('До: '); read(w);
Randomize;
if q=w then begin
for i:=1 to n do begin
a[i]:=q;
end;
end
else if q>0 then begin
for i:=1 to n do begin
a[i]:=random (w-q)+q;
end;
end
else begin
q:=q*(-1);
for i:=1 to n do begin
a[i]:=random(w+q)-q
end;
end;
end;
procedure vivod(n:integer; var a: mas);
var i: integer;
begin
writeln;
for i:= 1 to n do begin
write(a[i]:4);
write;
end;
end;
function first(k: integer; var a:mas) : integer;
var i,n: integer;
begin
i:=0;
repeat
i:=i+1;
if (a[i] mod 2)=0 then k:=i;
until k=i;
writeln('первое четное число под номером ',k);
end;
begin
writeln('Первый массив:');
Vvod(n, a);
vivod(n, a);
writeln;
writeln(first (k, a));
writeln;
writeln;
writeln('Второй массив:');
Vvod(n, a);
vivod(n, a);
writeln;
writeln(first (k, a));
writeln;
end.

function first(k: integer; var a:mas) : integer;
var i,y: integer;
begin
for i:=1 to 10 do begin
if (a[i] mod 2)=0 then begin
k:=i; break;
end;
end;
first:=k;
end;

s:=first(k, a);
writeln('первое четное число под номером ',s);