указатели на паскале

[glupayastudentka]

Описать тип данных: указатель на данные типа <my_type>. Объявите переменные a, b названного типа. Выделите в динамической памяти участки, достаточные для размещения двух переменных типа <my_type> (применить разные способы). Введите в созданные динамические переменные некоторые значения. Выведите их на экран. Присвойте одному из указателей значение другого указателя (Какие предварительные действия нужно сделать? Осуществите их). Выведите значения динамических переменных на экран.
<my_type>:byte
у меня тут чего-то не хватает..
код:
uses crt;
type pbyte=^byte;
var a, b: pbyte;
begin
repeat
new(a);
new(b)
a^:=5;
b^:=6;
writeln (a^, ' ', b^);

readkey;
end.

[VadEr]

type pbyte=^byte;
var a, b: pbyte;
begin
new(a);
GetMem(b,1);
a^:=5;
b^:=6;
writeln (a^, ' ', b^);
readln;
a^ := b^;
writeln (a^, ' ', b^);
readln;
Dispose(a);
FreeMem(b,1);
end.