while cant(temp)<cant(poliza)
{
basta=false
sumgrande=0
while not eof (poliza) and not basta
{
 read x
 while  not eof (temp) and not basta
 {
  read y
  if x==y {basta=true}
 }
 reset(temp)
}
if not (basta)
{
 aseguradoactual=x.nombre
 while not eof (poliza)
 {
  if aseguradoactual=x.nombre
  {
   write (x.NroPol, Temp)
   while not eof (siniestros) and
   {
    read z
    if x.NroPol=z.NroPol
    {
     Sum=sum+z.valor
    }
   }
  }
  read x
  if sum > sumgrande
  {
    sumgrande = sum
  }
 }
}