Подскажите пожалуйста Turbo Pascal 7. Создал

во первых - до базы данных твоей программе далеко =)
во вторых - вот что такое "хоть какая-то а все же БД на паскале" =)
будут вопросы насчет кода - пиши в личку, объясню

uses crt;
Const db_name='CarBase';
Type car = record
CarNumber:string;
CarModel:string;
CarColor:string;
End;

var
login:string;
i,n:longint;
F:file of car;
c:car;
q:char;

function exist(FileName: string):boolean;
Begin
{$I-}
assign(f,FileName);
Reset(F);
Close(F);
{$I+}
if (IOResult = 0) then exist:=true
else exist:=false;

End;

Procedure Create;
Begin
clrscr;
assign(f,db_name);
if (exist(db_name) = true) then
begin
Writeln('The database exists. Replace? Y/N');
Readln(q);
if (q='y') or (q='Y') then
ReWrite(f)
else
begin
Reset(f);
Seek(f,FileSize(f))
end
end
else
Rewrite(f);
write('Enter N: ');
readln(n);
for i:=1 to n do
with c do
begin
Write('Number: ');
readln(CarNumber);
Write('Model: ');
Readln(CarModel);
Write('Color: ');
readln(CarColor);
write(f,c)
end;
Close(f);
End;

Procedure Search;
var flag:boolean;
Begin
ClrScr;
if (exist(db_name) = False) then
begin
Writeln('The database not exists!');
Writeln('Press any key');
ReadKey;
end
else
begin
assign(f,db_name);
Reset(f);
Repeat
flag:=false;
Write('Enter login: ');
Readln(login);
with c do
while not EOF(f) do
begin
read(f,c);
if (CarNumber = login) then
begin
writeln('Model: ',CarModel);
writeln('Color: ',CarColor);
writeln;
flag:=true;
end;
end;

if flag=false then
Writeln('This car is not listed!');
seek(f,0);
Writeln('Continue Y/N?');
ReadLn(q);
Until (q='N') or (q='n');
close(f)
end;
End;

BEGIN
Repeat
ClrScr;
writeln('1 Create');
writeln('2 Search');
writeln('3 Exit');
Readln(q);
case q of
'1': Create;
'2': Search;
End;
Until q='3';
Writeln('Press any key');
ReadKey;
END.

ну а твоя программа работала бы правильно если подправить немножко ее вот так

var
login:string;
begin
Write('Enter the number of car '); Readln(login);
if (login = 'AH8385EE') then writeln('Deo Lanos, color gray.')
else if (login = 'AH9810CO') then writeln('Chevrolet Aveo, color orange.')
else if (login = 'AH4745HM') then writeln('Deo Lanos, color gray.')
else if (login = 'AH3274CK') then writeln('Deo Lanos, color gray.')
else writeln('This car is not listed!');
Readln
end.

Ну как написал так и работает, а чего ты хотел? Программа выполняется построчно сверху вниз. Назвать то, что ты наваял, "базой данных" - это вообще более чем смело.
Научись работать с типизированными файлами данных для начала.

Потому что каждый раз при введение нужно использовать разные переменные. Либо создать строковый массив.