Помогите решить: задача на записи (Паскаль)

[mpegable]

Описать переменную "студент", содержащую: имя, фамилию, отчество студента, название учебного заведения, номер группы. Создать список студентов (N>10). Определить фамилии студентов, учащихся в одной и той же группе, в одном и том же заведении (Паскаль)

Заранеее Благодарен

[eoln]

const N = 15;
type
  Stud = record
  f, i, o: string[15];
  vyz: string[30];
  grup: byte;
end;
var
  Student: Stud;
  mas, tmpmas: array[1..N] of Stud;
  i, j: byte;
  b: boolean;
begin
  for i := 1 to N do begin //заполняем
    write('FIO = '); readln(Student.f, Student.i, Student.o);
    write('VYZ = '); readln(Student.vyz);
    write('Gruppa = '); readln(Student.grup);
    mas[i] := Student
  end;
  tmpmas := mas; //временный массив
  for i := 1 to N do begin
    b := false;
    for j := i+1 to N do
      if (tmpmas[i].vyz = tmpmas[j].vyz) and (tmpmas[j].vyz <> '') then begin
        writeln(tmpmas[i].vyz, ' === ', tmpmas[j].f); //если встретили совпадение - выводим j-того чела
        tmpmas[j].vyz := '';//чтобы не было повторов
        b := true //чтоб узнать, что совпадение найдено
      end;
    if b then writeln(tmpmas[i].vyz, ' === ', tmpmas[j].f);//если совпадение было то выводим чела по которому искали совпадения
    b := false
  end;
  readln
end.