Выбор стержня в ханойских башнях - Turbo Pascal

Формулировка задачи:

Я хочу чтобы пользователь сам вбивал с какой башни на какую он хочет перекинуть кольца, но когда я пытаюсь это сделать то выдает ошибку что нельзя присвоить переменную к значению left, middle, right

type
  pos = (left, middle, right);
 
procedure move(n: integer; pl, pm, pr: pos);
  procedure step;
    procedure print(a: pos);
    begin
      case a of
        left: write(' лев. ');
        middle: write(' средн. ');
        right: write(' прав. ')
      end;
    end;
  
  begin{step}
    write(' снять диск с ');
    print(pl);
    write(' надеть на  ');
    print(pr);
    writeln
  end;
 
begin{move}
  
  if n = 1 then step
  else 
  begin
    move(n - 1, pl, pr, pm);
    step;
    move(n - 1, pm, pl, pr)
  end
end;
 
var
 m:integer;
begin
  writeln ('данная программа реализует головломку Ханойская башня, переносит кольца с 1 на 3 колышек ');
  write ('Дано дисков: ');
  readln(m); {число дисков}
  writeln('для ', m:3, ' дисков следует произвести ',
    'следующие действия:');
  move(m, left, middle, right);
  readln
end.

Решение задачи: «Выбор стержня в ханойских башнях»

Листинг программы

type
  pos = (left, middle, right);
const sterz:array[0..2] of string=('левый','средний','правый');
var a,b,c:pos;
begin
a:=pos(left);
write('Это ',sterz[ord(pos(a))],' стержень')
end.

Объяснение кода листинга программы

В данном коде:

Объявляется тип pos, который представляет собой перечисление (range) с тремя значениями: left, middle, right.
Объявляется константа sterz типа array[0..2] of string, которая содержит три строки: 'левый', 'средний', 'правый'.
Объявляются три переменные a, b, c типа pos.
Переменной a присваивается значение pos(left), то есть она получает значение left.
Выводится сообщение с использованием переменных a и sterz, в результате чего на экран выводится строка 'Это левый стержень'.
Код завершается.