Люди помогите пожалуйста решить задачу по паскалю

В самом простом виде, это выглядит так:

uses crt;

type
car = record
make: string[15];
color: string[10];
mileage: string[4];
year: string[4];
driver: string[10];
end;
var
f: file of car;
fl: char;
wrcardata, rdcardata: car;
j: byte;

procedure writer;
begin
write('Введите марку: '); readln(wrcardata.make);
write('Введите цвет: ');readln(wrcardata.color);
write('Введите пробег: ');readln(wrcardata.mileage);
write('Введите год: ');readln(wrcardata.year);
write('Вадитель: ');readln(wrcardata.driver);
end;

procedure wrdt(strg: string; len: byte);
var j,k: byte;
begin
write(strg);
for j:=0 to len-length(strg) do
write(' ');
write('| ');
end;

begin
clrscr;
assign(f,'data.dat');
rewrite(f);
repeat
writer;
write(f, wrcardata);
writeln(' ');
write('Для продолжения ввода нажмите 1: '); read(fl);
writeln;
until fl<>'1';
close(f);
reset(f);
clrscr;
writeln('Введите данные (Если значение параметра неважно введите *) ');
repeat
j:=0;
seek(f,0);
writer;
writeln;
while not eof(f) do
begin
read(f, rdcardata);
if wrcardata.make <> '*' then
if wrcardata.make <> rdcardata.make then continue;
if wrcardata.color <> '*' then
if wrcardata.color <> rdcardata.color then continue;
if wrcardata.mileage <> '*' then
if wrcardata.mileage <> rdcardata.mileage then continue;
if wrcardata.year <> '*' then
if wrcardata.year <> rdcardata.year then continue;
if wrcardata.driver <> '*' then
if wrcardata.driver <> rdcardata.driver then continue;
wrdt(rdcardata.make, 16);
wrdt(rdcardata.color, 11);
wrdt(rdcardata.mileage,5);
wrdt(rdcardata.year, 5);
wrdt(rdcardata.driver,11);
writeln;
inc(j);
end;
if j=0 then writeln('Автомобиль с такими данными не найден');
writeln(' ');
write('Чтобы повторить запрос введите 1: ');readln(fl);
writeln;
until fl<>'1';
close(f);
end.

Дорабатывай уже сам

у меня получилось

А что вы хотите? Чтобы за вас написали все? За деньги - напишем