Для каждого числа из второго списка определите номер первого и последнего появления этого числа

type
  List = ^Zveno;
  Zveno = Record
    next: List;
    info: integer;
  End;
 
var
  oneTailSpis, oneHeadSpis, twoTailSpis, twoHeadSpis: List;
  temp1, temp2: List;
  m, n, ind: integer;
  number, indexStart, indexEnd: integer;
  f, g: text;
  flag: boolean;
 
procedure InPut(var l, p: List; n: integer);
var
  i, m: integer;
begin
  for i := 1 to n do
  begin
    read(f, m);
    if l = nil then
    begin
      new(l);
      p := l;
      p^.Next := nil;
      l^.info := m;
    end
    else
    begin
      new(p^.Next);
      p := p^.Next;
      P^.Info := m;
      p^.Next := nil;
    end;
  end;
end;
 
begin
  Assign(f, 'in.txt');Reset(f);
  readln(f, n, m);
  InPut(oneHeadSpis, oneTailSpis, n);
  readln(f);
  InPut(twoHeadSpis, twoTailSpis, m);
  Assign(g, 'out.txt');Rewrite(g);
  temp1 := twoHeadSpis;
  while temp1 <> nil do
  begin
    temp2 := oneHeadSpis;
    number := temp1^.info;
    indexStart := 0;indexEnd := 0;
    ind := 0;flag := true;
    while (temp2 <> nil) and (flag) do
    begin
      ind := ind + 1;
      if (temp2^.info = number) and (IndexStart = 0) then indexStart := ind;
      if (temp2^.info = number) then indexEnd := ind;
      if temp2^.info > number then flag := false;
      temp2:=temp2^.next;
    end;
    if indexStart = 0 then writeln(g,number:6,' : ', 0:5)
    else writeln(g,number:6,' : ', indexStart:5, ' ', indexEnd:5);
    temp1 := temp1^.next;
  end;
  Close(f);Close(g);
  writeln('Результат в файле "out.txt"');
  readln;
end.