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

У тебя есть например запись типа

  data=record
        owner,auto:string;
 

Читаешь каждую запись и выводишь ее так:

writeln('Owner : ',data.owner,' Auto : ',data.auto);

Проходишься по всему файлу-данных, читаешь поочередно каждую запись и сверяешь необходимое поле записи с ключом поиска. Если они совпадают, то выводишь запись на экран, нет - ничего не делаешь.
Например:

while not(eof(f)) do
        begin
               read(f,data);
               if data.owner=key then
                  writeln('Выводишь все что тебе надо знать о этй записи');
        end;

Спасибо, а не подскажешь где здесь ошибка:
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;

Телепатов искать - в Google... Нужна помощь - приводи ВСЕ описания типов... Теги, кстати, тоже нужно использовать - иначе твоя программа рискует остаться незамеченной...

Volvo. это как описания всех типов?

что такое prokat?

Prokat - тип record (type prokat:record)

Где же ошибка?
Что я не доделал HELP!!!
Bokul, подскажи

Ты можешь понять, что пока не приведешь описание типа prokat - нельзя проверить твою программу? То, что это Record - понятно, надо же еще знать, из чего он состоит, какие поля содержит, тебе не кажется? Просто так говорить ничего не буду - я не ясновидящий...