Дан список группы в 10 человек. Определить число встречающихся имен

type
 t1 = array[1..10, 1..47] of char;
 const
 N = 10;
var
  name: array [1..10,1..10] of char;
  name1: array [1..10,1..10] of char;
  cnt: array [1..10] of byte;
  i, j,count,k,s,g : integer;
  f,t: text;
  a: t1;
  flag: boolean;
begin
  
  assign(f, '1.inp');
  reset(f);
  assign(t, '2.out'); 
  rewrite(t);
 
  for i := 1 to 10 do
  cnt[i] := 0;
  
  for i:= 1 to 10 do
    for j:= 1 to 10 do
      name[i,j]:= ' ';
      name1[i,j]:= ' ';
      
 
for i := 1 to 10 do 
  begin
    for j := 1 to 47 do 
    begin
      read(f, a[i, j]); //вводим и выводим посимвольно
      write(t,a[i, j]); 
    end; readln(f); writeln(t,''); //нужно переместить курсор на след. строку после каждого пробега
  end;
  close(f);
  
  
   for i:= 1 to 10 do
      for j:= 1 to 10 do
      name[1,j]:= a[1,20+j];
      
      for j:= 1 to 10 do
      name[2,j]:= a[2,20+j];
      
      for j:= 1 to 10 do
      name[3,j]:= a[3,20+j];
      
      for j:= 1 to 10 do
      name[4,j]:= a[4,20+j];
      
      for j:= 1 to 10 do
      name[5,j]:= a[5,20+j];
      
      for j:= 1 to 10 do
      name[6,j]:= a[6,20+j];
      
      for j:= 1 to 10 do
      name[7,j]:= a[7,20+j];
      
      for j:= 1 to 10 do
      name[8,j]:= a[8,20+j];
      
      for j:= 1 to 10 do
      name[9,j]:= a[9,20+j];
      
      for j:= 1 to 10 do
      name[10,j]:= a[10,20+j];
      
      
       k:= 1;
   for i:=1 to 10 do begin
       flag:= true; 
       count:= 0;
       for g:=1 to k do
          for s:=1 to 10 do
            if name1[g,s] = name[i,s] then
              count:= count+1;
              if count>2 then
              flag:= false;
       if flag = true then begin
         for s:=1 to 10 do begin
           name1[k,s]:= name[i,s];
         end;
           k:= k+1;
       end;
   end;
      
      
      
      
             
  writeln(t,'',name,'/',name1);
  close(t);
end.