e (f1); {$ I +} k: = filepos (f); (k); gotoxy (1, x); delline; if (k +19- x ) <= filesize (f) -1 thenseek (f, k +19- x); read (f, man); seek (f, k); gotoxy (1,19); write (man.Record_Number); ( 12,19); write (man.Record_Famile); gotoxy (32,19); write (man.Record_Special);; if (k> filesize (f) -1) and (filesize (f) <> 0) thenseek (f, k-1); dec (x); end else seek (f, k); if filesize (f) <> 0 then begin read (f, man); seek (f, filepos (f) -1); end; k: = filepos (f); end; end; 13: begin windows_enter (15,4,14,50,3, man, flag, h); if not flag thenwrite (f, man); seek (f, filepos (f) -1); end else begin (f, man); seek (f, filepos (f) -1); end; end; end; if filesize (f) <> 0 thengotoxy (1, x); textattr: = $ 1f; clreol; gotoxy (1, x); write (man.Record_Number); (12, x); write (man.Record_Famile); gotoxy (32, x); write ( man.Record_Special);; l: = filepos (f); until (ord (c) = 9) or (ord (c) = 27); seek (f, 0); close (f); Hide_ramka; (2, 18, Length (STR1) -1,23); textattr: = $ 1b; clrscr; window (1,1,80,25);; About; (2,18, Length (STR1) -1,23); clrscr ; (2,3); Write ('Сачевічік Олексій, АС-563 січня 2012');
readkey; clrscr; window (1,1,80,25);; Find; Number: array [1 .. 1000] of word; man1, man2: Record_Base; i, max, x, k, s, p : word; d, flag, l: boolean; (2,18, Length (STR1) -1,23); textattr: = $ 0f; clrscr; (11,3); Write ('Будь ласка,'); gotoxy ( 7,4); Write ('введіть інформацію');: = $ 0f; windows_enter (15,4,14,50,2, man1, flag, l); (f); i: = 0; if not flag thenbegin window (33,5,79,23);; while not eof (f) do begin read (f, Man2);: = (Man1.Record_Number = copy (Man2.Record_Number, 1, length (Man1.Record_Number))) or (Man1.Record_Number ='');: = d and ((Man1.Record_Famile = copy (Man2.Record_Famile, 1, length (Man1.Record_Famile))) or (Man1.Record_Famile =''));: = d and ((Man1.Record_Special = copy (Man2.Record_Special, 1, length (man1.Record_Special))) or (Man1.Record_Special =''));: = d and ((Man1.Record_Name = copy (Man2.Record_Name, 1, length (man1.Record_Name))) or (Man1.Record_Name =''));: = d and and ((Man1.Record_Year = copy (Man2.Record_Year, 1, length (man1.Record_Year))) or (Man1.Record_Year ='')); if d then begini = 0 then textattr: = $ 1f else textattr: = $ 0b; if i <= 18 thengotoxy (1, i +1); clreol; gotoxy (1, i +1); write (man2.Record_Number); (12, i +1); write (man2.Record_Famile); gotoxy (32, i +1); write (man2.Record_Special);; inc (i); Number [i]: = filepos (f) -1; end; end; if i> 0 then begin if not ramka then show_ramka ; max: = i; i: = 1; x: = 1; if max <> 0 then begin seek (f, Number [1]); (f, man1); seek (f, Number [1]); end; window (2,18, Length (STR1) -1,23); textattr: = $ 0f;; gotoxy (1,2); write (# 24, 'або', # 25, '- рухати курсор') ; (1,3); write ('"del" - видалити запис'); gotoxy (1,4); ('"Enter"-редагувати запис'); gotoxy (1,5); if archiv then ( '"Ins" - перенести в базу') else write (&#...
