Смета на приобретение концелярских товаров

PROGRAM A22;
const
    max = 42;
var
    vt:array[1..max]of byte;
    i,n:byte;
    x:integer;

BEGIN
  n := max;
  writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
  readln(n);  
  write('Введите число которое будет добавлено к каждому элементу.');
  readln(x);  

  writeln('Начальный Массив' );
  randomize;
  for i:=1 to n do begin
    vt[i]:=random(1,3);
    write(vt[i], ' ');
  end;
  writeln(' ');
 
  writeln('Массив c результатом' );
  for i:=1 to n do begin
    write(vt[i]+x, ' ');
  end;
  writeln(' ');
 
END.