Даг массив из 10 элементов. Вывести на экран только четные элементы. (Паскаль)

program PR;
var
I:byte;
Mas:array[1..10] of integer;
begin
for I:=1 to 10 do begin
write('Введите число=');
readln(Mas[I]);
end;
writeln('Список четных элементов массива');
for I:=1 to 10 do if Mas[I] mod 2=0 then writeln(Mas[I]);
readln;
end.