pascalabcnet/InstallerSamples/!Tutorial/17_Interfaces/Interf2.pas

// Интерфейсы. Интерфейс IComparer
uses System,System.Collections.Generic;

type 
  Student = class
  private
    name: string;
    age,course,group: integer;
  public
    constructor (n: string; a,c,g: integer);
    begin
      name := n; 
      age := a;
      course := c;
      group := g;
    end;
    function ToString: string; override;
    begin
      Result := Format('Имя: {0,9}   Возраст: {1}   Курс: {2}   Группа: {3}',name,age,course,group);
    end;
  end;
  
procedure WriteArray<T>(prompt: string; a: array of T);
begin
  writeln(prompt);
  foreach x: T in a do
    writeln(x);
  writeln;  
end;
  
var a: array of Student;  

begin
  SetLength(a,5);
  a[0] := new Student('Иванова',18,2,3);
  a[1] := new Student('Козлов',19,3,10);
  a[2] := new Student('Сидорова',22,5,1);
  a[3] := new Student('Крикунов',17,1,2);
  a[4] := new Student('Лихачев',25,4,8);
  WriteArray('Исходный массив:',a);
  
  writeln('Индекс Козлова = ',&Array.FindIndex(a,(s: Student)-> s.name = 'Козлов'));
end.