программа просит ввести 4 символа и выводит их коды через пробел

Var a,b,c,d:char;
begin
writeln('Введите 4 символа:');
readln(a,b,c,d);
writeln(ord(a),' ',ord(b),' ',ord(c),' ',ord(d));
end.