Работа со строками - Invalid conversion from 'char' to 'const char*'

#include <iostream>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
using namespace std;
void poisk(int n, char str[][100],char str1[][100], int *n1, int num[])
  {
    int i; char *s, *s1;
    *n1=0;
    for (i=0; i<n;i++)
          {
        s=str[i];
        s1=s;
        while(*s)
            if ((*s=='<')||(*s=='>')||(*s=='='))
            {
                if (s!=s1)
                {
                    num[*n1]=i;
                    strncpy(str1[*n1],s1,s-s1);
                    str1[*n1][s-s1]='\0';
                    (*n1)++;
                }
                while(*s&&((*s=='<')||(*s=='>')||(*s=='=')))s++;
                       s1=s;
            }
        else s++;
 
    }
 
  }
void stroka (int n, char str[][100],char str1[][100], int *n1, int num[],int *u)
{
 int i, y=0; char *s, *s1;
 for(i=0;i<*n1;i++)
 {
     int m,j,p=0;
     m=strlen(str1[i]);
     for(j=0;j<m;j++)
     {
         if ((str1[i][j]>='A')&&(str1[i][j]<='z'))
             p++;
     }
     if (p>y)
     {
         y=p;
         *u=i;
     }
 }
 }
void zamena(char str1[][100], int *u)
{
    int i,m,j,r;
    char str2[100];
    i=0;
    r=0;
    m=strlen(str1[*u]);
    puts(str1[*u]);
    puts(str1[*u][i]);
    while (i<m)
    {
        puts(str1[*u]);
        if ((str1[*u][i]=='b')&&(r==0)) { r++; str2[j]=str1[*u][i]; j++;  puts(str1[*u]);} else
        if ((str1[*u][i]=='e')&&(r==1)) { r++; str2[j]=str1[*u][i]; j++;} else
        if ((str1[*u][i]=='g')&&(r==2)) { r++; str2[j]=str1[*u][i]; j++;} else
        if ((str1[*u][i]=='i')&&(r==3)) { r++; str2[j]=str1[*u][i]; j++;} else
        if ((str1[*u][i]=='n')&&(r==4))
        {
            str2[j-4]='{';
            j=j-4;
            r=0;
        } else
        {
            str2[j]=str1[*u][i];
            j++;
        }
        i++;
        }
    puts(str2);
    }
 
int main()
{
    char str[10][100], str1[100][100], str3[100];
    int i,u, i1, n=0, n1, num[100],f;
    puts("Input strings:\n");
    while ((*gets(str[n]))&&(*str[n])&&(n<10))n++;
    puts("Ex1");
    poisk(n, str, str1,&n1, num);
    if (n1==0)
        puts("No substrings");
    else
    {
        puts("Substrings");
        for (i=0;i<n1;i++)
            puts(str1[i]);
    }
    puts("Ex2");
    stroka(n, str, str1,&n1, num,&u);
    puts(str1[u]);
    puts("Ex3");
    zamena(str1, &u);
    puts(str1[u]);
}

puts(str1[*u][i]);

puts(str1[*u , i]);