Generátor známok

//Napiste program ktory vygeneruje n znamok a urobi ich vypis do riadku v pôvodnom poradi a v opacnom
program gznamky;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamka=1..5;
var i,n:byte;
    z:array[1..255] of znamka;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko znamok chcete vygenerovat?: ');
  readln(n);
  randomize;
  for i:=1 to n do
    begin
      z[i]:=random(5)+1;
      write(z[i],' ');
    end;
  writeln('Vypisanie v opacnom smere');
  for i:=n downto 1 do write(z[i],' ');
  readln;
end.