Вывести на экран указанное меню

type
  p = record {тип данных "Тип данных паскаля"}
    name : string[7];
    size : string    
  end;
var
  n, i : integer; {начальный пункт}
  c : char; {символ}
  a : array [1..3] of p; {массив значений типов данных}  
begin
  {задаем значения типов}
  a[1].name := 'Integer'; a[1].size := '[-32768...32767]';
  a[2].name := 'Word'; a[2].size := '[0...65535]';
  a[3].name := 'LongInt'; a[3].size := '[-2147483648...2147483647]';
  {выводим меню и запрашиваем начальный пункт}
  writeln('меню:');
  for i := 1 to 3 do  
    writeln(i, ' - ', a[i].name);      
  repeat  
    write('введите начальный пункт N: ');
    readln(n);
    if not (n in [1..3]) then writeln('пункты меню - 1..3, неверный ввод!') 
  until n in [1..3];
  {вводим символ} 
  repeat
    write('введите символ R, L или W: ');
    readln(c);
    if not (upcase(c) in ['R', 'L', 'W']) then writeln('неверный ввод!')  
  until upcase(c) in ['R', 'L', 'W'];
  case upcase(c) of
    'R' : begin
            if n <> 3 then
            begin
              writeln(a[n].name);
              inc(n)              
            end
            else
            begin
              writeln(a[n].name);
              n := 1                         
            end;
            writeln('N стало равно ', n)
          end;
    'L' : begin
            if n <> 1 then
            begin
              writeln(a[n].name);
              dec(n)              
            end
            else 
            begin
              writeln(a[n].name);
              n := 3                       
            end;
            writeln('N стало равно ', n)
          end;          
    'W' : writeln(a[n].name, a[n].size)          
  end
end.