Найти наименьший четный элемент массива - Pascal ABC

Program cal;
Type
  PList = ^TList;
  TList = record
    family: string[20];
    name: string[20];
    surname: string[20];
    street: string[100];
    block: string[10];
    flat: integer;
    phone: string[50];
    mark: integer;
    next: PList;   
  end;
  streets = record 
    street: string[100]; //название улицы
    count: integer; //число учеников
  end;
  procedure addAb(var head: plist; family:string[20]; name:string[20]; surname:string[20]; street:string[100]; 
    block:string[10]; flat:integer; phone: string[50]);
  // структуры: фамилия, район, адрес, телефон, номер договора
  // дата заключения договора, оплата установки, дата последнего платежа. Поиск - по району.
  var
    cur: plist;
  begin
    new(cur);
    cur^.next := head; // Голова
    cur^.family := family; 
    cur^.name:= name; 
    cur^.surname:=surname;
    cur^.street:=street;
    cur^.block:=block;
    cur^.flat:=flat;
    cur^.phone:=phone;
    cur^.mark:=0;
    head := cur;
  end; // ШАПКА ГОТОВА
Var
  i,j,n, flat, l,k: integer;
  family, name, surname: string[20];
  block: string[10];
  street: string[100];
  phone: string[50];
  head,f,f1: PList; 
  str: array of streets;
begin 
  write('Сколько учеников в списке? ');
  readln(n);
  for i:=1 to n do
    begin
      write('Введите фамилию ученика: ');
      readln(family);
      write('Введите имя ученика: ');
      readln(name);
      write('Введите отчество ученика: ');
      readln(surname);
      write('Введите улицу: ');
      readln(street);
      write('Введите номер дома: ');
      readln(block);
      write('Введите номер квартиры: ');
      readln(flat);
      write('Введите телефон: ');
      readln(phone);
      addAb(head, family, name, surname, street, block, flat, phone);
    end;
  SetLength(str, n);
  f:=head;
  writeln;
  for i:=1 to n do
    begin
      writeln('  ', f^.family, ' ', f^.name, ' ', f^.surname, ', ул. ', f^.street,  ', д. ', f^.block,  ', кв. ', f^.flat,  ', тел. ', f^.phone);
      f:=f^.next;
    end;
   // сставляем список улиц, на которых живёт больше одного студента в массив str
  l:=0; 
  f:=head;  
  for i:=1 to n do begin
    if (f^.mark=0) and (f^.phone<>'') then
    begin
      k := 1;
      f1 := f^.next; 
      for j:=i+1 to n do begin
        if (f1^.mark = 0) and (f1^.phone <> '') and (f^.street = f1^.street) then
        begin
          k:=k+1;
          f1^.mark := 1;
        end;
        f1 := f1^.next;
      end;
      str[l].street := f^.street;
      str[l].count := k;
      l := l+1;
    end;
    f := f^.next;
  end;
  writeln;
  
  k := 0;
  for i:=0 to l-1 do 
  if str[i].count > 1 then begin
    k := 1;
    writeln('На улице ', str[i].street, ' живёт ', str[i].count, ' студентов:');
    f:=head;  
    for j:=1 to n do begin
      if (f^.phone<>'') and (f^.street = str[i].street) then
        writeln(f^.family, ' ', f^.name, ' ', f^.surname, ', ', f^.phone);
      f := f^.next;
    end;
    writeln;
  end;
  
  if k = 0 then writeln('Не найдено учеников, живущих на одинаковой улице с одниковым именем.');
  
end.