Meno na ord

//Program si vypýta meno programátora a toto meno vypíśe na obrazovku pomocou ordinálnych hodnout znakov. oddelené medzerou.
program premenanacisla;
{$APPTYPE CONSOLE}
uses SysUtils;
var celemeno,premena:string;
    i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte meno: ');
  readln(celemeno);
  for i:=1 to length(celemeno) do premena:=premena + ' ' + inttostr(ord(celemeno[i]));
  readln;
end.