Списки(паскаль). Пишет ошибку в коде :(

[pmi]

Составить программу, которая на основе уже имеющегося списка создает новый, вставляя заданный элемент после каждого i -го элемента исходного списка.

program spisok;
type Ptr=^count;
count=Record
Key:integer;
Next:ptr;
Info:char; // Символьный тип
end;
var p,q,head,temp:ptr;
n:integer;
begin // Создание исходного списка
n:=4;
p:=nil; // nil - отсутствие адреса
while n>0 do
begin
new(q); // Создаем новый элемент списка
q^.next:=p;
p:=q;
q^.key:=n;
readln(q^.info);
n:=n-1;
end;
begin
writeln('Введите номер элемента, после которого вы хотите вставить данный элемент(номер от 1 до 4): ');
readln(n);
end;
head:=q;
// Добавим новый элемент в начало списка
begin
new(temp);
new(q);
writeln('Введите элемент для добавления');
readln(q^.info);
for n:=1 to 4 do
begin
q^.next^.Key:=n;
q^.next^.next:=nil;
q:=q^.next;
end
end;
while q<>nil do
begin
writeln(q^.info);
q:=q^.next;
end;
end.

[ViktorR]

В Вашей программе есть строка (выделено жирным):

new(q); // Создаем новый элемент списка
q^.next:=p;
p:=q; {зачем Вам эта строка? Где ещё использована переменная p?}
q^.key:=n;
readln(q^.info);

Поскольку в таком коде разбираться сложновато, то рекомендую учебник Т.А. Павловской, можно скачать, например, http://www.programmersforum.ru/showt...?t=8324&page=9
В этом учебнике есть все необходимые п/п для решения Вашей задачи.

Как-то так, ...