аж',
'Розряду',
'Номеру цеху',
'Зарплаті');
= ^ Ttabl; =
= record: tablinf;, prev: Ptabl;;
: array [1 .. 20] of
cls;: registers;. ah: = $ 0F; ($ 10, r);. ah: = $ 00; ($ 10, r);;
hidecursor;: registers;. ax: = $ 0100;. cx: = $ 2607; ($ 10, r);;
showcursor;: registers;. ax: = $ 0100;. cx: = $ 0506; ($ 10, r);;
getp (n: integer): ptabl;: integer;: Ptabl;: = 1;: = left; c <> n do (c);: = el ^. next;;: = el;;
inttostr (i: longint): string;: string [11]; (i, s);: = S;;
strtoint (s: string): longint;, code: integer; s [1] = '' do delete (s, 1,1); s [length (s)] = '' do delete (s, length (s), 1); (s, i, code);: = i;;
flip (var t1, t2: ptabl);: tablinf;: = t1 ^. inf; ^. inf: = t2 ^. inf; ^. inf: = d;;
sort (t: integer);, temp2: ptabl;, i, j: integer;: = 1; i: = 1 to count doj: = 1 to count do begin: = getp (i);: = getp (j); s = 2 thent of
: if strtoint (temp1 ^. inf.num)> strtoint (temp2 ^. inf.num) then
flip (temp1, temp2);
: if temp1 ^. inf.fio> temp2 ^. inf.fio then flip (temp1, temp2);
: if strtoint (temp1 ^. inf.godr)> strtoint (temp2 ^. inf.godr) then
flip (temp1, temp2);
: if temp1 ^. inf.pol> temp2 ^. inf.pol then flip (temp1, temp2);
: if strtoint (temp1 ^. inf.stazh)> strtoint (temp2 ^. inf.stazh) then
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.razr)> strtoint (temp2 ^. inf.razr) then
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.ceh)> strtoint (temp2 ^. inf.ceh) then
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.zarp)> strtoint (temp2 ^. inf.zarp) then
flip (temp1, temp2); elses = 1 thent of
: if strtoint (temp1 ^. inf.num)
flip (temp1, temp2);
: if temp1 ^. inf.fio
: if strtoint (temp1 ^. inf.godr)
flip (temp1, temp2);
: if temp1 ^. inf.pol
: if strtoint (temp1 ^. inf.stazh)
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.razr)
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.ceh)
flip (temp1, temp2);
: if strtoint (temp1 ^. inf.zarp)
flip (temp1, temp2);;;;
org;: text; (f, 'base.txt'); (f); (f, newe.num); newe.num = '99999 'then : = Newe; ^. Next: = nil; ^. Prev: = nil;: = tabl;: = tabl; (f);: = 1; true do begin (f, newe.num); newe.nu...
