Как вывести на экран в одну строку все буквы английского алфавита на Паскале?

program ex24; {латинский алфавит }
var lat : char;
begin
for lat:='A' to 'Z' do
write(' ', lat);
readLn;
end.