Запись и чтение типизированного файла (Паскаль). Учёт заказов мебели

[Jlovenpk1]

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

1 программа создает у меня файл с данными:

program kk;
type stol=record
fa:string[20];
im:string[20];
o:string[20];
adr:string[20];
por:integer;
num:char;
end;

var
f: file of stol;
pep: array[1..3] of stol;
I:integer;
begin
writeln ('Информация о людях: ');
assign (f, 'c:\magaz.txt');
rewrite (f);
for i:=1 to 3 do
begin
write (' Фамилия: ');
readln (pep[i].fa);
write ('Имя: ');
readln (pep[i].im);
write ('Отчество: ');
readln (pep[i].o);
write ('Адрес: ');
readln (pep[i].adr);
write ('Порядковый номер: ');
readln (pep[i].por);
write ('Дата выдачи учета~: ');
readln (pep[i].num);
write (f,pep[i]);
writeln ('-----------------');
end;
close (f);
end.

А вот вторая программа не пашет, где ошибка то??? Все ок компилируется, но ошибка есть.

program kk;
type stol=record
fa:string[20];
im:string[20];
o:string[20];
adr:string[20];
por:integer;
num:char;
end;

var
f: file of stol;
pep: array[1..3] of stol;
i:integer;
n:integer;
g:integer;
begin
assign (f,'c:\magaz.txt');
reset (f);
write ();
writeln ('“«Ёж : ');
readln (n);
g:=0;
while not Eof(f) do begin
inc(g);
case n of
1: writeln (pep[1].fa);
2: writeln (pep[2].fa);
3: writeln (pep[3].fa);
else
writeln ('‚ Ў §Ґ *Ґв ¤ **ле');
close (f);
end;
end;
readln;
end.

[phomm]

Ошибка в алгоритме и вообще в логике - Вы нигде не _считаете_ число людей и даже нигде _не выводите чисел_ (да вообще хоть что-то подобное, ну разве что есть некая переменная g которая тупо в цикле растет), хотя в задании надо вывести число, Вы же выводите фамилии - не повод задуматься ? Как Вы вообще код писали-то ?