39;"Ins" - перенести в архів');
repeat textattr: = $ 0f; if max <> 0 then begin window (3,3, Length (STR1) -1,16); Man do end; c: = readkey; if ord (c) = 0 then c: = readkey; if ((ord (c) = 72) and (i> 1)) or ((ord (c) = 80) and (i < ; max)) and (max> 0) thentextattr: = $ 0b; gotoxy (1, x); clreol; seek (f, Number [i]); read (f, man1); (1, x); write ( man1.Record_Number); gotoxy (12, x); write (man1.Record_Famile); (32, x); write (man1.Record_Special); end; case ord (c) of 72: if (i> 1) and ( max <> 0) thenif x = 1 then begin gotoxy (1, x); insline; end else dec (x); (i); end; 80: if (i 0) then beginx = 19 then begin gotoxy (1,1); delline; end else inc (x); inc (i); end;
: filesize (f) <> 0 then begin if archiv then l: = windows (23,9,5,30,1, 'Перенести в базу?') l: = windows (23,9,5 , 30,1, 'Перенести в архів?'); if l then {$ I-} assign (f1, ARCHIVNAME); reset (f1); if IOResult <> 0 then rewrite (f1); IOResult <> 0 then halt (1); seek (f1, filesize (f1)); write (f1, man1); (f1); {$ I +} textattr: = $ 0b; delete (Number [i]); for k: = 1 to max dok> = i then if k +1 <= max then Number [k]: = Number [k +1] -1; dec (max); (1, x); delline; if (19-x + i ) <= max then begin (f, Number [19-x + i]); read (f, man1); gotoxy (1,19); write (man1.Record_Number); (12,19); write (man1 . Record_Famile); gotoxy (32,19); write (man1.Record_Special);; if (i> max) and (max <> 0) then begin (x); dec (i); end; end; end;
: if max <> 0 then if windows (23,9,5,30,1, 'Ви точно хочете видалити?') thentextattr: = $ 0b; delete (Number [i]); for k: = 1 to max dok> = i then if k +1 <= max then Number [k]: = Number [k +1] -1; (max); gotoxy (1, x); delline; if (19-x + i) <= max then begin (f, Number [19-x + i]); read (f, man1); gotoxy (1,19); write (man1.Record_Number); (12,19); write ( man1.Record_Famile); gotoxy (32,19); write (man1.Record_Special);; if (i> max) and (max <> 0) then begin dec (x); dec (i); end; end;
: windows_enter (15,4,14,50,3, man1, flag, l); if not flag thenseek (f, Number [i]); write (f, man1); seek (f, Number [i ]); endbegin seek (f, Number [i]); read (f, man1); seek (f, Number [i]); end; end; end; (33,5,79,23); if max <> 0 then begin gotoxy (1, x); textattr: = $ 1f;; seek (f, Number [i]); read (f, Man1); gotoxy (1, x); write (man1.Record_Number); (12, x); write (man1.Record_Famile); gotoxy (32, x); write (man1.Record_Special);; until (ord (c) = 9) or (ord (c) = 27); Hide_ramka; else windows (23,9,5,30,2, 'Нічого не знайдено!'); end; close (f);: = 1; lastfile: = 0; fill_ramka2 (last2); End; sort;, min, temp: Record_Base; m, i, j, l: integer; d: boolean; (f); windows_sort (15,4,14,50, flag, l); if not flag theni: = 0 to filesize (f) -1 do begin seek (f, i); read (f, min); m: = i; (f, i); for j: = i to filesize (f) -1 do begin: = true; read (f, man) ; d: = (Man.Record_Number 1); val (Man.Record_Famile, c1, cod1); val (min.R...
