Pascal abc символьный тип данных. вывести на экран все латинские буквы, коды которых чётные и кратны 5

Var C:char;
Begin
For C:='a' to 'z' do
 if Ord(C) mod 10 = 0 then WriteLn(C);
For C:='A' to 'Z' do
 if Ord(C) mod 10 = 0 then WriteLn(C)
End.