Выяснить, есть ли в массиве, заданном случайным образом, чётные числа и выдать на экран эти элементы массива. (Паскаль)

const max = 100; var a: array[1..max] of integer;     i,k,n: integer; begin   write('размер массива n = '); readln(n);   randomize;   writeln('массив:');   for i:=1 to n do   begin     a[i]:=random(-50,50);     write(a[i],' ');   end;     writeln;   k:=0;   writeln('четные числа:');   for i:=1 to n do    if a[i] mod 2 = 0 then   begin     write(a[i],' ');     k:=k+1;   end;   if k=0 then writeln('нет четных чисел'); end.