ecord_Famile, c2, cod2);: = d and (( c1 2)); val (Man.Record_Special, c3, cod3); val (min.Record_Special, c4, cod4);: = d and ((c3 3));: = d and ((Man.Record_Name 4));: = d and ((Man.Record_Fathername 5));: = d and ((Man.Record_Year 6)); d then begin min: = man; m: = j; end; end; seek (f, i ); read (f, man); temp: = man; (f, i); write (f, min); seek (f, m); write (f, man); end; close (f); last2: = 1; lastfile: = 0; _ramka2 (Last2); End; Zastavka; i: integer;; window (7,4,77,19); textcolor (15); textbackground (1); (chr (186), ' ___________________ ', chr (186)); (chr (186),' | | | | | | | | | | | | | | | | /', chr (186)); (chr ( 186), '| __ | ___ | ___ | | ___ | | | | ___ | | ___ | | ___ | | __ | /', chr (186)); (chr (186), '| | | | | | | _ | ___ | _ | | | | | | | | |/ ', chr (186)); (chr (186),' | __ | | | ___ | | | | | | | | | | | | __ | |/ ', chr (186)); (chr (186),' ', chr (186)); (chr (186),' ______ ', chr (186)); (chr (186 ), '| | | | |', chr (186)); (chr (186), '| __ | | ___ | __ |', chr (186)); (chr (186), '| | | | ', chr (186)); (chr (186),' | ___ | ___ | ____ | ', chr (186)); (3,22,77,25); textcolor (15); textbackground (1); ('Програма розроблена студентом групи АС-563, (с) Сачевічік Олексій'); ('Натисніть для продовження'); textbackground (blue); readln;; window (1,1,80,25); movetoarchiv ; archiv then begin filename: = 'Base.imm'; Archivname: = 'archiv.rar'; _s [3]: = 'Архів'; end else begin filename: = 'Archiv.rar'; Archivname: = 'Base. imm '; _s [3]: =' База '; end; init (Filename); Fill_ramka2 (1); archiv: = not of
: New_String;
: Find;
: sort;
: MovetoArchiv;
: About;
: ramka2_move (last2, lastfile);; z = 5; (1,1,80,25);;
End.
