однонаправленые списки, помогите решить задачку плиз Опции

[B&M]

дан список А, который состоит из записей: первое полее речовинне число, второе поле - адрес следующего елемента,
составить програму для вставки нового елемента Е1 перед последним вжодом елемента Е, если елемент есть в списке А.

[maksimla]

пример можешь дать ? и программу свою что неполучается

[B&M]

вот пример ток тут
данный список с целыми числами в информационном поле, изменить все значения елементов списка равных Х увеличить в 5 раз

program 12;
type sp=^elem;
elem=record
info1:=integer;
next:sp;
end;
var beg,p:sp;
n,x:integer; {n=во сколько раз увеличить}
begin
writeln('input x,n');
readln(x,n);
p:=beg;
while p<>nil do
begin
if p^.info=x then
p^.info:=p^.info*n;
p:=p^.next;
end;
writeln('new spisok');
p:=beg;
while p<>nil do
begin
write (p^.info,' ');
p:=p^.next;
end;
readln;
readln;
end.

[B&M]

это пример вставки елемента перед к-ым елементом

buf;=p^.info;
p^.info:=pk^.info;
pk^.info:=buf;


p:=pk^.next;
write (p^.info);
pk^.next:=p^next;

Сообщение отредактировано: B&M - 24.12.2008 22:04

[B&M]

вот посмотрите тут плиз тук какието ошибки


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type sp=^elem;
elem=record
info1:string[20];
next:sp;
end;
var beg,p,pk,buf:sp;


begin

p:=beg;
while p<>nil do
begin
buf:=p^.info1;
p^.info1:=pk^.info1;
pk^.info1:=buf;
p:=pk^.next;
write(p^.info1);
pk^.next:=p^.next;
end;
dispose(p);
readln; readln;



{ TODO -oUser -cConsole Main : Insert code here }
end.