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

И еще эта же задача,только с текстовыми файлами.
Заранее большущее спасибо!!!
Вот что я написала,но связать нормально с файлом не выходит,помогите
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[i].fam);
write('Imiaя: ');readln(a[i].im);
write('Grupa: ');readln(a[i].grup);
end;
writeln('Odnofamilcy:');
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].fam=a[j].fam then
begin
k:=1;
writeln('Grupa: ',a[i].grup,' ','student: ',a[i].fam,' ',a[i].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.

А в текстовых файлах в принципе все тоже самое,только расширение ехе????

krvsa Для текстовых файлов, как правило, используют расширение txt...
Я знаю,затупила,не о том подумала...*стыдно:)*
ананисто пошел в ж..у!
не можешь помочь, заткни пасть!