динамические структуры данных

[ильшат9]

вот код:

Program D_stru;
Type
TElem=integer;
TInform=string;
ukaz=^zweno;
zweno=record
adr:telem;
inf:TInform;
next:ukaz;
end;
var ukzw0,ukzwtek,ukzw,p,q:ukaz;
adr1,adr2,ad:TElem;
st1,st2,st:TInform;
r:boolean;
procedure Wwod_Inform;
Label 1;
begin
writeln('enter firts adress');
readln(ad);
writeln('enter first information of length');
readln(St);
new(ukzw0);
ukzwtek:=ukzw0;
ukzwtek^.next:=nil;
ukzwtek^.adr:=ad;
ukzwtek^.inf:=St;
repeat
writeln('enter adress');
readln(ad); if ad=0 then goto 1;
writeln('enter information in length');
readln(St);
new(ukzwtek^.next);
ukzwtek:=ukzwtek^.next;
ukzwtek^.next:=nil;
ukzwtek^.adr:=ad;
ukzwtek^.inf:=St;
1:;
until ad=0
end;
procedure Wiwod_Inform;
begin
ukzwtek:=ukzw0;
WriteLn;
While ukzwtek<>nil do
begin
WriteLn(ukzwtek^.adr);
WriteLn(ukzwtek^.inf);
ukzwtek:=ukzwtek^.next
end
end;
procedure poisk(adrfik:TElem;var res:boolean;var p:ukaz);
begin
res:=false;
ukzwtek:=ukzw0;
WriteLn;
While(ukzwtek<>nil)and(res=false)do
begin
if ukzwtek^.adr=adrfik then begin p:=ukzwtek;
res:=true end;
ukzwtek:=ukzwtek^.next
end;
if res=false then writeln('adresat ne obnarujen')
end;
procedure del(adrfik:TElem);
var ukzwud:ukaz; var res:boolean;
begin
res:=false;
ukzwtek:=ukzw0;
While(ukzwtek<>nil)and(res=false) do
begin
if ukzwtek^.adr=adrfik then
begin
ukzwud:=ukzwtek; ukzwtek:=ukzwtek^.next; res:=true; dispose(ukzwud)
end;
ukzwtek:=ukzwtek^.next
end
end;
procedure InsZweno(adrfik:telem);
var p:ukaz; res:boolean;
begin
res:=false;
writeln('vvedite novii adress');
readln (ad);
writeln('vvedite novuyu infu v stroke');
readln(St);
ukzwtek:=ukzw0;
New(p);
p^.adr:=ad;
p^.inf:=St;
While(ukzwtek<>nil)and(res=false)do
begin
if Ukzwtek^.adr=adrfik then
begin p^.next:=ukzwtek^.next;
ukzwtek^.next:=p;
res:=true
end;
ukzwtek:=ukzwtek^.next
end;
end;
begin
Wwod_Inform;
Wiwod_Inform;
Writeln ('vvedite poiskovii adress');
readln (ad);
poisk(ad,r,p);
if r=true then begin
Writeln ('infa po etomu adresu sleduyushaya');
writeln (p^.inf)
end
end.

в нем нужно добавить:
взять текст любой и построить связанный текст, проделать операции вставки предложения, удаления и поиска

[Utkin]

На форуме работает кнопочка #. С помощью неё код оформляется как положено. Иначе он совершенно не читаем. Соответственно и желание помочь как-то не сильно мотивирует на действия... Для исправления есть кнопка Правка (у твоего поста). Намек ясен?
И ещё

TElem=integer;
TInform=string;

Не понял юмора, на фига это?