Распечатайте в столбик числовые коды букв введенного слова — Pascal(Паскаль)

var s: string;
procedure writecod (s: string);
var i: byte;
begin
for i:= 1 to length (s) do
writeln (ord(s[i]));
end;
begin
readln (s);
writecod(s);
end.