d);
GoToXY (43,3); Textcolor (10); writeln ('Розділ');
GoToXY (50,3); Textcolor (11); writeln (Baza.FRazdel);
GoToXY (60,3); Textcolor (10); writeln ('Підрозділ');
GoToXY (70,3); Textcolor (11); writeln (Baza.FPodRazdel);
GoToXY (22,5); Textcolor (10); writeln ('Назва:');
opis1: = copy (Baza.FName, 1,58);
opis2: = copy (Baza.FName, 59,117);
opis3: = copy (Baza.FName, 118,126),
GoToXY (22,6); Textcolor (11); writeln (Opis1);
GoToXY (22,7); Textcolor (11); writeln (Opis2);
GoToXY (22,8); Textcolor (11); writeln (Opis3);
GoToXY (22,10); Textcolor (10); writeln ('Серія:');
GoToXY (30,10), Textcolor (11); writeln (Baza.FSeria),
GoToXY (22,12); Textcolor (10); writeln ('Виробник:');
GoToXY (22,13); Textcolor (11); writeln (Baza.FProizvod);
opis1: = copy (Baza.FOpisan, 1,58);
opis2: = copy (Baza.FOpisan, 59,117);
opis3: = copy (Baza.FOpisan, 118,126);
GoToXY (22,15); Textcolor (10); writeln ('Опис:');
GoToXY (22,16); Textcolor (11); writeln (Opis1);
GoToXY (22,17); Textcolor (11); writeln (Opis2);
GoToXY (22,18); Textcolor (11); writeln (Opis3);
GoToXY (22,20); Textcolor (10); writeln ('Вартість');
GoToXY (35,20); Textcolor (11); writeln (Baza.FMany);
end;
procedure writeSpisok; {Процедура виведення позицій товару чий код
останнім записаний в список}
var f: text;
begin
if ScetRP <> 0 then
begin
tek: = nach; {Вважати перший елемент списку і знайти у файлі товар з
таким кодом}
assign (f, 'e: prog bd.dat');
reset (f);
while not Eof (f) do {Прочитуємо з файлу бд}
begin
readln (f, Baza.FKod);
readln (f, Baza.FRazdel);
readln (f, Baza.FPodRazdel);
readln (f, Baza.FName);
readln (f, Baza.FSeria);
readln (f, Baza.FProizvod);
readln (f, Baza.FOpisan);
readln (f, Baza.FMany),
readln (f, Baza.FSim);
if Baza.FKod = tek ^. Nomer Then {Якщо код товару зі списку = кодом товару
з файлу значить вивести на екран позиції товару}
begin
clrscr;
shapka; podRazdel;
GoToXY (1,1); {write ('MRazdel =', MRazdel, 'Podrazd =', lom);}
GoToXY (60,1); Write ('Усього позицій:', ScetRP);
Tablo;
end;
end;
close (f);
end
else
begin
GoToXY (22,11); Textcolor (10); writeln ('Товарів немає, для виходу з даної категорії натисніть ESC ');
f1: = 7; f2: = 11; f3: = 7; f4: = 7; f8: = 7; pu: = 7; pd: = 7; f10: = 7; {Кольори нижніх кнопок}
Text1: = 'Рухайтеся кнопками';
Text2: = 'PageDown, PageUp'; {Підказки}
Text3: = 'Для виходу натисніть';
Text4: = 'ESC '; p> shapka; podrazdel;
{writeln ('Enter');
readln;}
end;
end;
procedure DelSpisok; {Видаляє останній елемент переліку}
begin
tek: = nach; {Переходимо в початок}
nach: = tek ^. next; {Зв'язуємо}
dispose (tek); {Видаляємо}
tek: = nach;
kolvo: = kolvo-1; {Зменшуємо кількість елементів у списку на 1}
end;
procedure RP; {Зчитує з файлу перший товар відповідний розділу
та підрозділу}
{var lon: boolean;
{f: text;}
begin
{lon: = false; {}
assign (f, 'e: prog bd.dat');
reset (f);
while (not Eof (f)) do
begin
readln (f, Baza.FKod);
readln (f, Baza.FRazdel);
readln (f, Baza.FPodRazdel);
readln (f, Baza.FName);
readln (f, Baza.FSeria);
readln (f, Baza.FProizvod);
readln (f, Baza.FOpisan);
readln (f, Baza.FMany);
readln (f, Baza.FSim);
{Якщо розділ з файлу = вибраному розділу і підрозділ
з файлу = обраному підрозділу}
If (Baza.FRazdel = MRazdel) and (Baza.FPodRazdel = Podrazd) then
begin
addspisok; {Додаємо до списку}
break;
end;
end;
end;
procedure PoiskFPR; {Пошук елемента відповідної розділу і
підрозділу в списку і у файлі}
var {f: text;}
Good, Nal: boolean;
zed: integer;
begin
assign (f, 'e: prog bd.dat');
reset (f);
nal: = false;
while (not Eof (f)) or (nal = false) do {Зчитує дані з файлу бд}
begin
readln (f, Baza.FKod);
readln (f, Baza.FRazdel),
readln (f, Baza.FPodRazdel);
readln (f, Baza.FName);
readln (f, Baza.FSeria);
readln (f,...
