do j=0 to 99;a.j=linein();end;do i=0 to 99;k=0;do j=0 to j;k=max(k,compare(a.i,a.j));end;say left(a.i,k);end