Сделать и заполнить таблицу- Pascal(Паскаль)

uses crt;
const n=3;
type auto=record
          mar:string[20];
          god:word;
          obm:word;
          cvt:string[20];
          end;
     fail=file of auto;
var f:fail;
    a:auto;
    i,k:byte;
    g:word;
begin
clrscr;
assign(f,'auto.dat');
rewrite(f);
writeln('Введите данные о ',n,' автомобилях:');
for i:=1 to n do
 begin
  writeln('Автомобиль ',i);
  with a do
   begin
    write(' Марка: ');readln(mar);
    write(' Год выпуска: ');readln(god);
    write(' Объем двигателя: ');readln(obm);
    write(' Цвет: ');readln(cvt);
    write(f,a);
   end;
 end;
close(f);
clrscr;
reset(f);
writeln('Список автомобилей:':30);
writeln;
writeln('------------------------------------------');
writeln('|     Марка     |  Год  | Vдвг |   Цвет  |');
writeln('------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('| ',mar);
    gotoXY(17,whereY);write('|',god:5);
    gotoXY(25,whereY);write('|',obm:5);
    gotoXY(32,whereY);write('| ',cvt);
    gotoXY(42,whereY);writeln('|');
   end;
 end;
writeln('------------------------------------------');
close(f);
write('Press Enter...');
readln;
clrscr;
write('Введите год выпуска g=');
readln(g);
reset(f);
k:=0;
writeln('Список автомобилей ',g,' года выпуска:');
writeln;
writeln('------------------------------------------');
writeln('|     Марка     |  Год  | Vдвг |   Цвет  |');
writeln('------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  if a.god=g then
   begin
    k:=1;
    with a do
     begin
      gotoXY(1,whereY);write('| ',mar);
      gotoXY(17,whereY);write('|',god:5);
      gotoXY(25,whereY);write('|',obm:5);
      gotoXY(32,whereY);write('| ',cvt);
      gotoXY(42,whereY);writeln('|');
     end;
   end;
 end;
writeln('------------------------------------------');
if k=0 then writeln('Извините, таких автомобилей нет!');
close(f);
write('Press Enter...');
readln
end.