procedure maximo(LM:listaM; var max:real; var patenteMax:string30);
begin
  if(LM<>nil)then begin
    maximo(LM^.sig,max,patenteMax);
    if(LM^.dato.total>max)then begin
      max:=LM^.dato.total;
      patenteMax:=LM^.dato.patente;
    end;
  end;
end;