znaknaord

//Program si vypýta pole n znakov vypíše na obrazovku znaky oddelené od seba a v dalšom riadku vypíše ord.
program znakyaord;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n:byte;
    z:array[1..255] of char;
    o:array[1..255] of byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko znakov chcete zadat?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte ',i,' znak: ');
      readln(z[i]);
    end;
  for i:=1 to n do
    begin
     //premena START
      o[i]:=ord(z[i]);
     //premena END
      writeln('  ',z[i],' ',o[i]:2);
    end;
  readln;
end.