Вывести в Мемо популярные факультеты

setlength(col,9);
  for i:=0 to 8 do col[i]:=0;
  For i:=0 to n-1 do
    begin
      if univer[i].faculty='Ф-т математики, информатики, физики и технологии' then col[0]:=col[0]+1;
      if univer[i].faculty='Филологический ф-т' then col[1]:=col[1]+1;
      if univer[i].faculty='Ф-т истории, философии и права' then col[2]:=col[2]+1;
      if univer[i].faculty='Ф-т иностранных языков' then col[3]:=col[3]+1;
      if univer[i].faculty='Ф-т психологии и педагогики' then  col[4]:=col[4]+1;
      if univer[i].faculty='Ф-т экономики, менеджмента, сервиса и туризма' then col[5]:=col[5]+1;
      if univer[i].faculty='Ф-т естественнонаучного образования' then  col[6]:=col[6]+1;
      if univer[i].faculty='Ф-т искусств' then  col[7]:=col[7]+1;
    end;
  max:=0;
  max_n:=0;
  for i:=0 to 7 do
    begin
      if col[i]>max then
      begin
        max:=col[i];
        max_n:=i
      end;
    end;
  if max_n=0 then memo1.Lines.Add('Ф-т математики, информатики, физики и технологии');
  if max_n=1 then memo1.Lines.Add('Филологический ф-т');
  if max_n=2 then memo1.Lines.Add('Ф-т истории, философии и права');
  if max_n=3 then memo1.Lines.Add('Ф-т иностранных языков');
  if max_n=4 then memo1.Lines.Add('Ф-т психологии и педагогики');
  if max_n=5 then memo1.Lines.Add('Ф-т экономики, менеджмента, сервиса и туризма');
  if max_n=6 then memo1.Lines.Add('Ф-т естественнонаучного образования' );
  if max_n=7 then memo1.Lines.Add('Ф-т искусств');
end;

if max_n=0 then

if max=col[0] then