Фильтрация базы данных по названию города

if yourdatabase.town='Новосибирск' then
 writeln(yourdatabase.fio);

Program baza_dannih;
Uses crt;
label 0;
type
list=record
name,surname,tnumber,city:string[20];
end;
FT= file of list;
Var a:ft;
i,x:integer;
s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
q:list;
begin
rewrite (a);
j:=1;
while j<>0 do
begin
write ('имя');
readln (q.name);
write ('фамилия ');
readln (q.surname);
write ('номер телефона ');
Readln (q.tnumber);
write ('город');
readln (q.city);
write (a,q);
writeln ('если законцено,введите 0,если нет,1');
readln (j);
end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
q:list;
begin
reset (a);
writeln ('_________________________________________________________________________________');
writeln ('  имя  ':15,'|','  фамилия ':20,'|','  номер телефона   ':20,'|','   город   ':15);
writeln ('_________________________________________________________________________________');
while not eof(a) do
begin
read (a,q);
write (q.name:15);
write ('|',q.surname:20);
write ('|',q.tnumber:20);
write ('|',q.city:15);
writeln;
writeln ('_________________________________________________________________________________');
end;
close (a);
end;