y: char; k1: integer; (bd, txtfile); (bd);: = 1;: = 1;: = 1;: = 0;: = 10;: = 0; not eof (bd) do with buff ^ do begin
readln (bd, a ^ [k]. cex); readln (bd, a ^ [k]. fam); | № Цехи | | Прізвище | | dobuff ^ do begin: = k +1; poz = k then begina ^ [k]. cex <> 0 then enda ^ [k]. cex <> 0 then begin ('----------------------------------- ------------------------------------------- ');
writeln ('', k,'', '|', a ^ [k]. cex: 6, '|', '|', a ^ [k]. fam: 35, '|', '|', a ^ [k]. zar: 30, '|');;;: = readkey; key of
# 72: (poz> 1) and (poz <= n1) then begin (poz); (k1); (n1);;
# 80: if poz <= n1-1 then begina ^ [k +1]. cex <> 0 then begin (k1); (poz); (n1);; end;
massm ^ [1]: = '1: № цеху '; ^ [2]: = '2: Прізвища працівників'; ^ [3]: = '3: середню заробітну плану працівників ';
k: = 1;
v: = 1; not eof (bd) do with buff ^ do begin (bd, a ^ [v]. cex); readln (bd, a ^ [v]. fam); readln (bd, a ^ [v]. zar);: = k +1;: = v +1;;: = 1;: = 3;; (v);;: = poz; v = 1 then begin (a ^);: = 10;: = 0;: = 0;: = n2;; ('============================ ============================ '); (' | № Цехи | | Прізвище | | Ср.Заработок | '); (' ================================================== ====== '); n1 0 then begin (' | ', a ^ [n1]. cex: 6,' | '); (' | ', a ^ [n1]. fam: 22,' | ');
write of
# 72: (poz> 1) and (poz <= k) then begin (n2); (poz); (k);;
# 80: poz 0 then begin (n2); (poz); (k);; end; end; key = # 27;; v = 2 then begin (a ^);: = 1;: = 10;: = 0;: = 0;: = n2;;
writeln ('======================================= ================= '); (' | № Цехи | | Прізвище | | Ср.Заработок | '); (' =========== ============================================= '); n1 < k do begin: = n1 +1; a ^ [n1]. cex <> 0 then of
# 72: (poz> 1) and (poz
# 80: poz 0 then begin (n2); (poz); (k);; end; end; key = # 27;
end; v = 3 then begin (a ^);: = 1;: = 10;: = 0;: = 0;: = n2;; ('======= ================================================= ' ); ('| № Цехи | | Прізвище | | Ср.Заработок |'); ('============================= =========================== '); n1 0 then of
# 72: (poz> 1) and (poz
dec (k);;
# 80: poz 0 then begin (n2); (poz); (k);; end; end; key = #...
