продажа автомобиля

[ольгару]

В файле заданы сведения о продаже автомобилей: марка предлагаемого автомобиля, цвет, дата выпуска, пробег, цена. Вывести данные автомобилей не ранее 2000 года.
напишите пожалуйста как она будет выглядеть на паскале.

[p51x]

фриланс ниже

[Mad_Cat]

type Tauto = record
marka:string[100];
color:string[10];
cena:real;
y:integer;
probeg:injteger;
end;
{....}
var a:Tauto;f:file of Tauto;
{....}
while not eof(f) do 
begin
read(a);
if a.y>=2000 then
writeln(a.marka,' ',a.color,' ',a.y,' ',a.probeg,' ',a.cena);
end;
{....}