Братаны-кодеры в этой задаче нужен особый подход к считыванию
Из условия неясно,какой формат,но пока что он следущий(.=пробел):
ххх.ххх.ххх и т.д.
ууу.ууу.ууу.ууу и т.д.
Не используйте на Паскале eof,eoln.
Часть моего говнокода:
 ...
 s:string[4];
 ...
 len:=1;
 read(s);
 inc(c[90*90*(ord(s[1])-33)+90*(ord(s[2])-33)+(ord(s[3])-33)]);
 f:=length(s)=4;
 while f do begin
  inc(len);
  read(s);
  inc(c[90*90*(ord(s[1])-33)+90*(ord(s[2])-33)+(ord(s[3])-33)]);
  f:=length(s)=4;
 end;
 ...

Timus is not an image board
That is not 2ch or 4ch
There is no need to use such words