Задача "Редкое имя"

[makskovalko]

Помогите пожалуйста, решить задачу!

Входной файл input.txt:
содержит список учащихся школы. В каждой строке через пробел заданы Фамилия
Имя и Отчество ученика. Требуется определить, какое имя самое редкое.
Число учеников в школе <= 10000.

Файл результата output.txt: содержит одну строку с искомым именем.

Пример input.txt:
Пушкин Александр Сергеевич
Луканов Александр Сергеевич
Соколова Любава Викторовна
Иванов Иван Иванович
Сидоров Иван Петрович

output.txt для данного примера
Любава


Я заганял все имена в массив, но как потом можно найти самое редкое имя?

Type
 fio = record
  name,sname,otchestvo:string;
 end;

Var
 a:array[0..1000] of fio;
 i,j,n,m,k:integer;
 f1,f2:text;
 s,str,s1,s2,s3:string;
 b:array[0..10000] of string;
 c:array[0..1000] of integer;
 count:integer;
 
Begin
 Assign(f1,'input.txt');
 Assign(f2,'output.txt');
 Reset(f1);
 Rewrite(f2);
  while not Eof(f1) do
   begin
    Inc(i);
    readln(f1,s);
    Delete(s,1,Pos(' ',s));
    a[i].name:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    Delete(s,1,Length(s));
    Inc(n);
   end;
 Close(f1);
  for i:=1 to n do write(a[i].name,' ');
 Close(f2);
End.

[Abstraction]

Я заганял все имена в массив, но как потом можно найти самое редкое имя?

Упорядочить массив.

[makskovalko]

Каким способом?

[Stilet]

Сделай массив записей:

 
type
 fio = record
  name,sname,otchestvo:string;
  Count:integer;
 end;
a:array[0..1000] of fio;

При считывании проводи поиск по уже имеющимся записям, и если такое найдено - увеличивай на единицу поле count.
Ну а далее найходи максимальное из этих записей по Count и показывай на экран.
Ясно?

[makskovalko]

А можете написать код?

[Niro]

a[i].name:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    Delete(s,1,Length(s));

вместо этого, вот это

temp_stroka:= Copy(s,1,Pos(' ',s)-1);
for z:=1 to i do
 if a[z].name = temp_stroka then inc (a[z].count) else a[z].name:= temp;
 temp_stroka:='';

тип переменных - объявите сами.
после чего вам нужно будет найти ту ячейку массива, у которой count, минимален (т.е. это обычный поиск минимального элемента в массиве)

[makskovalko]

Niro, Ваш вариант не работает!

[Niro]

Вполне возможно) я не проверял, писал сразу в окне форума.
но желательно бы было указать, что не работает?
Не запускается, зависает, выдает неправильный результат?

Вообщем идею вам указал Stilet:
добавить в запись перменную count,
и загонять в массив не все подряд имена, а только если их там еще нету,
если есть, то увеличить счетчик на 1.

ну да, одна ошибочка закралась..

else a[z].name:= temp_stroka;