var

n,i,j,len,max1,max2:longint;

s:array[0..100] of string;

a:array[0..150,0..250] of longint;

l:array[0..100] of longint;

f,g:array[0..150,0..250] of longint;

function min(x,y,z:longint):longint;

begin

if x