var

str:array[1..1001]of string;

st :string[26];

change:array['a'..'z']of integer;

i,j,n,m:longint;

t:text;

function isok(a,b:string):boolean;

var i:integer;

begin

i:=1;

while (i