Вставка сроки при записи в файл, (Нужна помощь) Опции

[N!K!t@]

Подскажите пожалуйста!
Нужно создать Базу данных, например, автостоянки или регистратуры
Файл создаю, когда открываю,
выводит в виде (запись)(запись2)(запись3)(за
пись4)
1)Как сделать, чтоы каждая запись была на отдельной строке?
Они прерываются и переносятся и вообще трудно чего-то разобрать.
2)И как осуществить поиск в такой базе(например, вывести владельцев
с одинаковыми машинами или иногородних пациентов)

[N!K!t@]

Спасибо, а не подскажешь где здесь ошибка:
procedure Find;
var fam:string[20];
q:byte;
st:prokat;
begin
writeln('имя файла для поиска');
readln(filename);
assign(f,filename);reset(f);
with st do
writeln('Введите фамилию ');
readln(fam);
q:=0;
while not eof(f) do
begin
read(f,st);
if st.sname_Hozaina=fam then inc(q);
writeln('Кол-во однофамильцев: ',q);
end;
close(f);
end;