Помогите, пожалуйста, решить задачу (в формате Паскаля)

Если введёшь цифры (через пробел) от 1 до 6, то получишь реверс

Спасибо огромное

Program zad1;const N = 6;var    a: array[1..N] of integer;    i: byte;    b: integer;begin    for i:=1 to N do        read(a[i]);     for i:=1 to N div 2 do begin        b := a[i];        a[i] := a[N-i+1];        a[N-i+1] := b;    end;     for i:=1 to N do        write(a[i],' ');     writeln;end.