Возникает проблема с решением задачи.

[profi]

Сведения об ученике состоят из его имени и фамилии и названия
класса (года обучения и буквы), в котором он учится. Дан файл f,
содержащий сведения об учениках школы. Выяснить, имеются ли в
школе однофамильцы.

Я набросал код, но он не работает т.е. выдает только первую запись вместо полного результата.

Program rgr7;
uses crt;
type stud=record
fam,nam:string;
god:integer;
klass:char;
end;
var
f:file of stud;
a:array[0..30] of stud;
j,n,i:integer;
b:stud;
begin clrscr;
assign (f,'D:\stud.int');
rewrite (f);
write ('Vvedite kolichestvo elementov: ');
readln (n);
for i:=1 to n do
with a[i] do
begin
writeln ('    Danye pro ',i,' uchenika');
write ('             Familiya: '); readln (fam);
write ('                 Imay: '); readln (nam);
write ('                Klass: '); readln (klass);
write ('                  God: '); readln (god);
write (f,a[i]);
end;
close (f);
reset (f);
for i:=0 to n do
begin
read (f,a[i]);
inc(i);
end;
close (f);
for j:=0 to n-1 do
for i:=0 to n-j do
if a[i].fam > a[i+1].fam then
begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=0 to n do
begin
if a[i].fam = a[i+1].fam then
with a[i] do
begin
writeln ('============================');
writeln (fam);
writeln ('     ',nam);
writeln ('       ',klass);
writeln ('         ',god);
writeln ('============================');
end;
end;
end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Abbatik]

Program rgr7;
uses crt;
type stud=record
fam,nam:string;
god:integer;
klass:char;
end;
var
f:text;
a:array[0..30] of stud;
j,n,i:integer;
b:stud;
begin clrscr;
assign (f,'stud.int');
rewrite (f);
write ('Vvedite kolichestvo elementov: ');
readln (n);
for i:=1 to n do
with a[i] do
begin
writeln (' Danye pro ',i,' uchenika');
write (' Familiya: '); readln (fam);
write (' Imay: '); readln (nam);
write (' Klass: '); readln (klass);
write (' God: '); readln (god);
writeln (f,fam);
writeln (f,nam);
writeln (f,klass);
writeln (f,god);

end;
close (f);
assign (f,'stud.int');
reset (f);
for i:=0 to n do
begin
readln (f,a[i].fam);
readln (f,a[i].nam);
readln (f,a[i].klass);
readln (f,a[i].god);

end;
close (f);
for j:=0 to n-1 do
for i:=0 to n-j do
if a[i].fam > a[i+1].fam then
begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n-1 do
begin
if a[i].fam = a[i+1].fam then
with a[i] do
begin
writeln ('============================');
writeln (fam);
writeln (' ',nam);
writeln (' ',klass);
writeln (' ',god);
writeln ('============================');
end;
end;
end.

Так вроде работает

[mihali4]

Вот это окончание мне что-то не нравится:

for j:=0 to n-1 do   
for i:=0 to n-j do   
if a[i].fam > a[i+1].fam then   
begin   
b:=a[i];   
a[i]:=a[i+1];   
a[i+1]:=b;   
end;   
for i:=1 to n-1 do   
begin   
if a[i].fam = a[i+1].fam then   
with a[i] do   
begin   
writeln ('============================');   
writeln (fam);   
writeln (' ',nam);   
writeln (' ',klass);   
writeln (' ',god);   
writeln ('============================');   
end;   
end;

Почему не сделать проще:

for j:=0 to n-1 do 
begin
k:=j;  
for i:=k+1 to n-1 do   
if a[i].fam = a[j].fam then   
with a[i] do   
begin   
writeln ('============================');   
writeln (fam);   
writeln (' ',nam);   
writeln (' ',klass);   
writeln (' ',god);   
writeln ('============================');   
end;   
end;