Программа нахождения четных чисел из 10 любых на языке pascal

Var
mas:array[1..10]of integer;
i:integer;
Begin 
    write('Введите 10чисел: '); 
   for i:=1 to 10  do  readln(mas[i]);    
 write('Четными являются: '); 
   for i:=1 to 10 do   if (mas[i] mod 2 = 0) then write(mas[i],' ');
End.