помогите плиз=) написал вот прогу а чото не работает(( при выборе действий ... что тут не так? компиляцию проходит (написана на bpw).
[HTML]{2.составьте программу которая создаёт файл записей жильцов дома (номер квартиры, фамилия имя возраст)программа должна обспечивать ввод данных,поиск квартиры по фамилии,вывод списка жильцов заданной квартиры}
uses wincrt,windos;
type data=record
num:1..999;
fam:string;
name:string;
age:1..99;
end;
var f:file of data;
v:data;i:integer;
d,a:char;b:byte;
s:string[15];ss:array[0..99] of char;
procedure vvod;
begin
repeat
writeln('введите номер кв..');readln(v.num);
writeln('введите фамилию');readln(v.fam);
writeln('введите имя');readln(v.name);
writeln('введите возраст');readln(v.age);
write(f,v);
writeln('завершить?');readln(a)
until (a='y') or(a='í');
close(f);
end;
begin
{===========================================================}
GetCurDir(ss,0);
FileSearch(ss,'bd.dat',ss);
i:=0;
repeat
write(ss);
inc(i);
until ss=#0;
writeln;
{===========================================================}
if ss[0]=#0 then
begin assign(f,'bd.dat');
rewrite(f);
repeat
writeln('введите номер кв.');readln(v.num);
writeln('введите фамилию');readln(v.fam);
writeln('введите имя');readln(v.name);
writeln('введите возраст');readln(v.age);
write(f,v);
writeln('завершить?');readln(a);
until a='y';
close(f);
end;
writeln('нажмите:1-ввод данных,2-поиск по фамилии,3-список жильцов квартиры');read(b);
if b=1 then begin
seek(f,FileSize(f));
vvod;
end;
if b=2 then begin
reset(f);
write('введите фамилию');readln(s);
while not eof(f) do begin
read(f,v);
with v do begin
if fam=s then begin writeln(num);writeln(fam); end;
end;
end;
close(f);
end;
if b=3 then begin
reset(F);
write('введите квартиру');readln(b);
while not eof(f) do begin
read(f,v);
with v do begin
if num=b then begin writeln('фамилия ',fam);writeln('имя',name);end;
end;
end;
close(F);
end;
end.[/HTML]