По коду символа в переменную поместить сам символ - Turbo Pascal

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

Здравствуйте. Мне необходимо написать 2 программы на ассемблерных вставках: 1)Даны две переменных

cod

(тип byte) и

(тип char).В переменной

cod

– находится ascii код символа. по коду символа в переменную

поместить сам символ. Вывести полученный символ на экран. Для первой программы есть возможный "набросок", но както не работает, но мож кто поймет что тут исправить:

var cod:byte;
    c:char;
begin
asm
mov al,52
mov cod,al
mov [0000],cod
mov c,[0000]
end;
writeln(c);
readln();
end.

Заранее спасибо.

Условие второй задачи в другой теме форума

Решение задачи: «По коду символа в переменную поместить сам символ»

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

var
  cod: byte;
  c: char;
begin
  cod:=65;
  asm
  mov al,cod
  mov c,al
  end;
  WriteLn(c);
end.

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

В данном коде на Turbo Pascal происходит следующее:

Объявляются две переменные: cod типа byte и c типа char.
Значение переменной cod присваивается 65, что является кодом символа в таблице ASCII.
Затем выполняется ассемблерная вставка (asm), которая перемещает код из переменной cod в регистр al.
Значение регистра al присваивается переменной c, то есть символ, соответствующий коду, сохраняется в переменной c.
Наконец, с помощью функции WriteLn выводится значение переменной c на экран. Таким образом, данный код помещает в переменную c символ, соответствующий коду, хранящемуся в переменной cod.