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

[mpegable]

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

Вот моя прога:

const N = 11;
type
Stud = record
f, i, o: string;
vyz: string;
grup: byte;
end;
var
mas: array[1..N] of Stud;
i, j,p: byte;s:string;
b: boolean;
begin
for i := 1 to N do begin
write('Family[',i,']: '); readln(s);
mas[i].f:=s;
write('Name[',i,']: '); readln(s);
mas[i].i:=s;
write('Otchestvo[',i,']: '); readln(s);
mas[i].o:=s;
write('VYZ[',i,']: '); readln(s);
mas[i].vyz:=s;
write('Gruppa[',i,']: '); readln(p);
mas[i].grup:=p;
end;
writeln;writeln('Result: ');writeln;b:=false;
i := 1;
while i<n do
begin
j := i+1;
while j<=n do
begin
if (mas[i].vyz = mas[j].vyz)and
(mas[j].vyz <> '')and(mas[i].grup = mas[j].grup) then
begin
for i:=1 to n do begin
write(mas[i].vyz,' ', mas[i].f);
b:=true end;
end;
j:=j+1
end;
i:=i+1
end;
if not b then writeln('result is not found...');
readln
end.

Но она почему-то выдает не весь список, а только первое совпадение.

заранее благодарен

[puporev]

Вот немного переделал, кое-что изменил, просто я так привык писать, если что, обратно переделаешь, главное сейчас нормально работает.

uses crt;
const N = 3;
type
Stud = record
f, i, o: string;
vyz: string;
grup: byte;
end;
var
mas: array[1..N] of Stud;
i,j,k: byte;
s:string;
begin
clrscr;
for i := 1 to N do begin
writeln('Student ',i);
write('Family: '); readln(mas[i].f);
write('Name: '); readln(mas[i].i);
write('Otchestvo: '); readln(mas[i].o);
write('VYZ: '); readln(mas[i].vyz);
write('Gruppa: '); readln(mas[i].grup);
end;
writeln;
writeln('Result: ');
writeln;
k:=0;
for i:=1 to n do
for j:=1 to n do
if (mas[i].vyz = mas[j].vyz)and(mas[i].grup=mas[j].grup)and(i<>j) then
   begin
     writeln(mas[i].f);
	   k:=k+1;
   end;
if k=0 then writeln('Takih studentov net!');	 
readln
end.