procedure TForm1.Button1Click(Sender: TObject);
begin
u:=0;
y:=0;
size:=Edit1.GetTextLen();
size2:=Edit2.GetTextLen();

   for x:=0 to size do
      begin
         mass[x]:=Edit1.Text[x];
      end;

         for x:=0 to size do
            begin
               if mass[x]=Edit2.Text[1] then
                  for i:=x to size do
                     begin
                        if mass[i]=Edit2.Text[1+u] then
                           begin
                             y:=y+1;
                           end;
                             u:=u+1;
                     end;
            end;

      if y=0 then
         begin
           Memo1.SelText:='Makemashita';
         end;

      if y+1>size2 then
         begin
           Memo1.SelText:='Mitsuketa';
         end;

         begin
             if y+1>size2 then
               begin
                 for t:=i to size-size2 do
                   begin
                   mass[t]:=mass[t+size2];
                   end;
                 end;
         end;

         for x:=0 to size-size2 do
           begin
             Memo1.SelText:=Edit1.Text[x];
           end;

end;