Найдите ошибку в добавлении элемента к списку

[alex-soft]

Вот часть программы:

procedure dodav(var uk:pp);
var newElem:pp;
begin
randomize;
new(newElem);
newElem^.pole1:=random(100);
newElem^.pole2:=random(100);
newElem^.pole2:=random(100);
 
newElem^.uk:=tt^.pnt;
newElem^.pnt:=nil;
writeln('Елемент добавленно');
end;

Полная программа в теме под названием "Структуры данных".

Здесь я пытался добавить один элемент в список.
Если что-то не понятно, спрашивайте.
От меня - искренняя благодарность.