Вывести на экран информацию, из какой школы меньше всего участников

var
 a: array [1..99] of integer;
 i, k, n, m: integer;
 s, t: string;
begin
 assign (input, 'input.txt'); reset (input);
 assign (output, 'output.txt'); rewrite (output);
 readln (n);
 for i:=1 to 99 do
   a[i]:=0;
 for i:=1 to n do
  begin
   readln (s); {считываем строку}
   k:=length (s); {определяем ее длину}
   t:=s[k-1]+s[k]; {отрезаем последние два символа - это или двузначное число, или пробел и однозначное число}
   val (t, m, k); {переводим строку в число - номер школы}
   a[m]:=a[m]+1; {прибавляем единицу к количеству детей от данной школы}
  end;
  i:=1;
  while a[i]=0 do i:=i+1; {ищем первую участвующую школу}
  m:=a[i];
  for k:=i to 99 do
   if (a[k]<>0) and (a[k]<m) {поиск минимального ненулевого элемента}
    then m:=a[k];
  for i:=1 to 99 do
   if a[i]=m then write (i:3); {вывод результата}
 close (input);
 close (output);
end.