Файлы. Ведомость школьников

[Tagimasad]

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

Program z;
uses crt;
type
 uch = record
 fam,nam: string;
 klass: char;
 end;
var
h: text;
c: string;
a: array [1..20] of uch;
i,j,n: integer;
b: uch;
begin
 clrscr;
 c:='f:\h.txt';
 assign (h,c);
 rewrite (h);
 write ('Введите кол-во учеников: ');
 readln (n);
 for i:=1 to n do
 with a[i] do
  begin
  writeln ('Данные про ',i,' ученика');
  writeln (' Фамилия: '); readln (fam);
  writeln (' Имя: '); readln (nam);
  writeln (' Класс: '); readln (klass);
end;
close (h);
assign (h,c);
reset (h);
for i:=0 to n do
 begin
 readln (h,a[i].fam);
 readln (h,a[i].nam);
 readln (h,a[i].klass);
 end;
close (h);
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;
  wrietln (fam);
  writeln (' ',nam);
  writeln (' ',klass);
 end;
end.

Pascal выдает мне ошибку "File not open for input."
Помогите пожалуйста, решать не надо, просто подскажите как надо.
Заранее благодарен людям которые откликнуться на мой зов.

[Mad_Cat]

выяснить, имеются ли однофамильцы в каких-либо парралельных классах.

по вашим полям этого не определить klass тоже должен быть

type  klass = record
num:byte;
let:char;
end;

[Tagimasad]

Сообщение от Mad_Cat

по вашим полям этого не определить klass тоже должен быть

type  klass = record
num:byte;
let:char;
end;

Это только код первого пункта. Чтобы все было в одной проге, можно ставить в type две записи record?