var
  Form1: TForm1;
  a:array[1..30,1..20]of string;
  i,j,n,k,m,s1,s2,r: integer;