Использование процедур Опции

[Nalis]

Здравствуйте, помогите пожайлуста дописать программку, условие такое-
Список деталей механического устройства с разбивкой деталей по агрегатам. Количество агрегатов и деталей в каждом агрегате задать самостоятельно. Составить модуль формирования нового списка деталей, общих для двух заданных агрегатов.
Программку нужно выполнить с использованием нескольких процедур

 Program 1;
uses crt;

const
 q    = 500;
 path = 'qw.txt';
 
type
 dzap  = ^zapis;
 zapis = record
  otdel : string[10];
  tel   : string[10];
  next  : dzap;
 end;
 
var 
 zap,                 {tekushya zapis}
 nachzap  : dzap;     {1 zapis}
 t : text;
 
procedure vvod;        
var
 i : integer;
 przap : dzap;     
begin
clrscr;

 assign (t, path);
 reset  (t);

    
 i := 0;
 nachzap := nil;
 while not eof(t) do
 begin
  przap := zap;
  new(zap);
  with zap^ do
  begin
   next := nil;
   if nachzap = nil then
    nachzap := zap
   else
    przap^.next := zap;
    readln(t, agregat);
	writeln(agregat);
   end;
 end;
 close(t);
end; 
 
 
procedure poisk;
var
 i : integer;
 s : string;
begin
 writeln ('vvedite agregat');
 readln (s);
 zap := nachzap;
  while zap <> nil do
   begin
    if (zap^.tel[1] = s[1]) and (zap^.tel[2] = s[2]) then
	writeln (zap^.otdel, zap^.tel);
    zap := zap^.next;
   end;  
end; 

begin
clrscr;
vvod;
poisk;

readkey;
end.

Сообщение отредактировано: Nalis - 15.06.2007 16:12