Олимпиадная задача. Pascal. 9-11. Межгалактический кризис

[HiFull]

Добрый день, программисты! Недавно решал одну задачу на базе дист.олимпиады одного из местных ВУЗов. Редко бывает такое, что спустя кучу попыток нужный тест все не находится или ты сам не можешь понять, где недосчитался. Видимо, наступил тот самый момент. Помогите, пожалуйста, хотя бы понять, какой случай не прочел и где оплошался, задача с кодом будут прикреплены. Заранее спасибо!

[evg_m]

//Создаю имя пользователя до :
   while (s1[j] <> ':') or (s1[j+1] <> ' ') do

jak silver:hello!

[HiFull]

Да нет, все равно меня дропает система, теперь уж точно понять не могу :с

[Serge_Bliznykov]

Сообщение от HiFull

Да нет, все равно меня дропает система, теперь уж точно понять не могу

попробуйте запустить ваш код на таком примере:

4
Jonh: Hello,
Jonh: friends!
Boss: It's great! My message is very long message!
Boss: i'm really great.

[evg_m]

jak: hello.
jak: привет.
и выведите ВЕСЬ список данных ПОСЛЕ разбора (все имена и все длины).

offtopоткройте для себя record (надеюсь они есть в вашем Pascal)
mas: array[....] of record imya: string; len: integer; end;чтобы не делать постоянно val <--> str и не только

[Serge_Bliznykov]

TC, Вы не обидитесь, если я здесь свой вариант приведу?

type
  RecClient1 = record
    name : string;
    count : integer;
  end;
var
 clients : array [1..100] of RecClient1;
 s, curname : string;
 i, n, j,IndexMax : integer;
begin

 Assign(input, 'infile1.txt');
 Reset(input);

 readln(n);

 for i:=1 to n do begin
   clients[i].name := '';
   clients[i].count := 0;
 end;

 IndexMax := 1;
 for i:=1 to n do begin
  ReadLn(s);
  j := Pos(': ', s);
  if j>1 then begin
     curname := copy(s,1,j-1);
     j:=1;
     while (j<=n) and (clients[j].name<>curname) and (clients[j].name<>'') do Inc(j);
     if (clients[j].name='') then clients[j].name := curname;
     clients[j].count := clients[j].count + Length(s)-2-Length(curname);
     if clients[j].count>clients[IndexMax].count then IndexMax := j
  end;
 end;

 WriteLn(clients[IndexMax].name,' ',clients[IndexMax].count)

end.

[Plague]

В копилку:

begin
  var d := new Dictionary<string, integer>;
  loop ReadlnInteger do
  begin
    var s := ReadString;
    var n := s[:Pos(':', s)];
    d[n] := d.Get(n) + s.Count - n.Count - 2
  end;
  var c := d.MaxBy(i -> i.Value);
  Print(c.Key, c.Value)
end.

.NET