Program saraksti;
uses CRT,sysutils;
Const
HM=10;
HMax=15;
type
tpntr=^STDElement;
STDElement=record
num:integer;
key:char;
prev,next:tpntr;
end;
List=record
n:integer;
head:tpntr;
cur:tpntr;
last:tpntr;
end;
var
l:List;
KeyChar:char;
curel:integer;…