Файл, записи

[hohotushka]

Программисты дорогие,пожалуйста,помогите поставить зачет!!!!Очень прошу!!!!Задачи нужны желательно на завтра,а я в этих темах самый натуральный чайник
Нужно написать две программы в паскале
1. При решении задачи использовать тип данных структура
2. Написать программу которая создает файл данных который соответствует условию задачи
3. Решить задачу с использованием данных созданного файла
Сведения о студенте состоят из его имени,фамилии и шифра группы. Выяснить,имеются ли однофамильцы среди этих студентов. Отпечатать сведения о таких студентах

И еще эта же задача,только с текстовыми файлами.
Заранее большущее спасибо!!!

Вот с файлом записей(скажите,правильно ли я открыла и закрыла фаил???)
[syntax="pascal"]
uses crt;
type student=record
fam:string[20];
im:string[20];
grup:string[3];
end;
var a:array[1..100] of student;
n,i,j,k:byte;
odno:file of student;
begin
clrscr;
assign(odno,'Odnofamilcy.zap');
rewrite(odno);
writeln('Kolichestvo studentov');
readln(n);
writeln('Vvedite danye o ',n,' studentax:');
for i:=1 to n do
begin
writeln('student ',i);
write(' Familiya: ');
readln(a.fam);
write('Imiaя: ');
readln(a.im);
write('Grupa: ');
readln(a.grup);
end;
writeln('Odnofamilcy:');
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a.fam=a[j].fam then
begin
k:=1;
writeln('Grupa: ',a.grup,' ','student: ',a.fam,' ',a.im,' ');
writeln('Grupa: ',a[j].grup,' ','student: ',a[j].fam,' ',a[j].im);
end;
if k=0 then write('Odnofamilcev net!');
close(odno);
readln
end.[/syntax]

[samec2011]

Открыли и закрыли файл правильно.
Только смысл какой в этих действиях, если не записываете ничего в файл.
Решу, за определенную плату.
Стучите в асю 11один11-5шесть5шесть, обсудим.

[Хыиуду]

Замените odno: file of student на odno: text, и в двух последних writeln-ах первым аргументом сделайте odno. Типа writeln(odno, 'Grupa: ',a.grup,' ','student: ',a.fam,' ',a.im,
' ');