menum: integer;: char;, lp: integer;: = 1; (25,9, 'Menu'); (c = # 80) and (lp <7) then inc (lp ); (c = # 72) and (lp> 1) then dec (lp); i: = 1 to 7 do if i = lp then (7); textbackground (1); (28,8 + i); ( mainmenu [i]); else (1); textbackground (3); (28,8 + i); (mainmenu [i]);; (1); textbackground (3);: = readkey; (c = # 27 ) or (c = # 13); c = # 13 then menum: = lp;;
saveto;: text; (f, 'out.txt'); (f);: = getp (beg); temp <> nil dotemp ^. inf do (f, '?' , num, '?', fio, '?', godr, '?', pol, '?', stazh, '?', razr, '?', ceh, '?
', uch,'? ', Zarp,'? ');: = Temp ^. Next;; (f);;
inp (26,10,4, 'Рік цехи: ',''); (26,15,4,' Номер ділянки: ','');
inp (26,16,5, 'Зарплата:','');: = input (26,8,5, 'Номер:','', true); length (st) <5 then for p: = 1 to 5-length (st) do st: = st + '';. num: = st;: = input (26,9,22, 'ПІБ:','', false ); length (st) <22 then for p: = 1 to 22-length (st) do st: = st + '';. fio: = st;: = input (26,10,4, 'Рік народження : ','', true); length (st) <4 then for p: = 1 to 4-length (st) do st: = st +' ';. godr: = st;: = input (26, 11,7, 'Стать:','', false); st <> 'дружин' then st: = 'чоловік'; length (st) <7 then for p: = 1 to 7-length (st) do st: = st + '';. pol: = st;: = input (26,12,2, 'Стаж:','', true); length (st) <2 then for p: = 1 to 2-length (st) do st: = st + '';. stazh: = st;: = input (26,13,1, 'Розряд:','', true);. razr: = st;: = input (26,14,2, 'Номер цеху:','', true); length (st) <2 then for p: = 1 to 2-length (st) do st: = st + '';. ceh: = st;: = input (26,15,4, 'Номер ділянки:','', true); length (st) <4 then for p: = 1 to 4-length (st) do st: = st + '';. uch: = st;: = input (26,16,5, 'Зарплата:','', true); length (st) <5 then for p: = 1 to 5-length (st) do st: = st + '';. zarp: = st; (tabl); ^. inf: = newe; ^. next: = nil; ^. prev: = right; ^. next: = tabl; : = tabl; (count);;
