Определить, какой абонент телефонной связи чаще других пользовался телефоном в каждый из трех дней(звонил сам и принимал звонки от других) — Pascal(Паскаль)

program PacalGuru;

type
  zapisi = record
    company: string;
    kolvo: integer;
  end;

var
  f: text;
  s, vx, isx: string;
  i, n, max: integer;
  m: array [1 .. 50] of zapisi;

function count(s: string): integer;
var
  i, r: integer;
begin
  r := 0;
  for i := 1 to length(s) do
    if s[i] = ';' then
      inc(r);
  count := r;
end;

{ ------------------------------------ }
begin
  assign(f, 'bd.txt');
  reset(f);
  i := 0;
  while not eof(f) do
  begin
    readln(f, s);
    readln(f, vx);
    readln(f, isx);
    inc(i);
    m[i].company := copy(s, 1, 1);
    m[i].kolvo := count(vx) + count(isx);
  end;
  n := i;
  for i := 1 to n do
    writeln(m[i].company, ' - vsego zvonkov= ', m[i].kolvo);

  max := 1;
  for i := 2 to n do
    if m[i].kolvo > m[max].kolvo then
      max := i;
  writeln;
  writeln;
  writeln('Casce drugix zvonili - "', m[i].company, '" vsego ', m[i].kolvo,
    ' zvonkov');

  close(f);
  readln;

end.