Перевод задачи с Паскаля - C (СИ)

Формулировка задачи:

Не могу полностью перевести код паскаля на Си.Помогите пожалуйста!

var
a:array[1..100] of string;
n,i,j:integer;
odn:array[1..100] of string;
begin
write('Vvedite kolvo uchenikov ');
readln(n);
for i:=1 to n do
 begin
  write('Vvedite familiyu i initiali uchenika #',i,' ');
 
  readln(a[i]);
 end;
for i:=1 to n do
 begin
 odn[i]:=' ';
  for j:=1 to n do
   begin
 
    if i<>j then
     begin
      if copy(a[i],1,length(a[i])-5)=copy(a[j],1,length(a[j])-5) then
       odn[i]:=odn[i]+copy(a[j],length(a[j])-4,5)+',';
     end;
   end;
 end;
writeln;
for i:=1 to n do
 begin
  write('Familiya: ',a[i],',',odn[i]);
   writeln;
 end;
readln
end.

Решение задачи: «Перевод задачи с Паскаля»

textual
                            Листинг программы 
                        

                            int a[6][6];
int i, j;
 
for(i=0; i<6; i++)
    a[i][0]=i;
 
for(i=0; i<6; i++)
    for(j=1; j<6; j++)
        a[i][j] = a[i][j-1]+6;
    
for(i=0; i<6; i++)
{
    for(j=0; j<6; j++)
        printf("%3d ", a[i][j]);
    
    printf("\n");
}
                        