Структура записи

const n=10;
type avto=record
marka,color:string;
year:integer:
price:read;
end;
avtoprice= file of avto;
var a1:array[1..n] of avto;
i:integer;
f1:avtoprice;
begin
clrscr
assing(f1,'d:\avto');
reset(f1);
for i:1 to n do with a1[i] do
begin
writeln('Введите марку:');
readln (marka);
writeln('Год выпуска:');
readln(year);
writeln('Цвет:');
readln(color);
writeln('Цена:');
readln(price);
end;
writeln;
writeln('Фирма предлогает такие машины:')
for i:=1 to n do with a1[i] do 
writeln(marka:15,year:10,color:20,color:red,' $',price);
writeln;
write('Выведим инф;');
writeln('Машину выпущенные в 1999 году;');
for i:=1 to n do with a1[i] do 
if year = 1999 and color= red then writeln (marka:15,prece);
readln;
end.

uses crt;
const n=2;
type avto=record
          marka,color:string;
          year:integer;
          price:real;
          end;
var a1:array[1..n] of avto;
    i,k:integer;
    f1:file of avto;
begin
clrscr;
assign(f1,'avto');
rewrite(f1);
writeln('‚ўҐ¤ЁвҐ ¤***лҐ:');
for i:=1 to n do
with a1[i] do
 begin
  write('‚ўҐ¤ЁвҐ ¬*аЄг: ');readln (marka);
  write('ѓ®¤ ўлЇгбЄ*: ');readln(year);
  write('–ўҐв: ');readln(color);
  write('–Ґ**: ');readln(price);
  write(f1,a1[i]);
 end;
clrscr;
writeln('”Ёа¬* ЇаҐ¤«aЈ*Ґв в*ЄЁҐ ¬*иЁ*л:');
reset(f1);
i:=0;
while not eof(f1) do
 begin
  i:=i+1;
  read(f1,a1[i]);
  with a1[i] do
  writeln(marka:10,year:6,color:10,'   $',price:6:2);
 end;
writeln;
close(f1);
reset(f1);
writeln('‚뢥¤Ё¬ Ё*д:');
writeln('Њ*иЁ*л Єа*б*®Ј® 梥в*, ўлЇгйҐ**лҐ ў 1999 Ј®¤г:');
k:=0;
for i:=1 to n do
with a1[i] do
if (year = 1999) and (color= 'red') then
 begin
  k:=1;
  writeln (marka:10,'   $',price:7:2);
 end;
if k=0 then write('’*ЄЁе ¬*иЁ* Є ᮦ*«Ґ*Ёо *Ґв. ‡*©¤ЁвҐ Ї®§¦Ґ!');
readln
end.