доработать программу

uses crt;
type kino=record
          kolmest,kolbil,nom:integer;
          kn,vr,zal:string;
          naz:string;
          god:2000..2010;
          cen:longint;
          end;
     fail=file of kino;
var f:fail;
    a:kino;
    n:byte;
    c:char;
begin
clrscr;
assign(f,'kino.dat');
rewrite(f);
writeln('ұұӨ¤ЁвӨ ¤***лӨ Үа® ҒЁ*® ®Ғ®*з**ЁӨ ұұ®¤* Esc:');
n:=0;
repeat
n:=n+1;
with a do
 begin
  nom:=n;
  write(' **§ұ**ЁӨ дЁ«м¬*: ');readln(kn);
  repeat
  write(' Ә®¤ ұлҮгбҒ* (2000-2010): ');readln(god);
  until (god>1999)and(god<2011);
  write(' ұаӨ¬мп: ');readln(vr);
  write(' жӨ**: ');readln(cen);
  write(' §*«:  ');readln(zal);
  write('Ғ®«ЁзӨбвұ® Ү®б*¤®з*ле ¬Өбв: '); readln(kolmest);
  write('Ғ®«ЁзӨбвұ® Үத***ле ҰЁ«Өв®ұ: '); readln(kolbil);
  write(f,a);
 end;
c:=readkey;
until c=#27;
clrscr;
close(f);
reset(f);
writeln('бҮЁб®Ғ 䨫쬮ұ:':35);
writeln;
writeln('---------------------------------------------------------------');
writeln('|ҮҮ| **§ұ**ЁӨ |Ә®¤ ұлҮгбҒ*|ұаӨ¬мп| жӨ**|  §*«  | ҒҮ¬| ҒҮҰ  |   ');
writeln('---------------------------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nom:3);
    gotoXY(4,whereY);write('| ',kn);
    gotoXY(15,whereY);write('| ',god);
    gotoXY(27,whereY);write('|',vr);
    gotoXY(34,whereY);write('| ',cen:4);
    gotoXY(40,whereY);write('| ',zal);
    gotoXY(48,whereY);write('| ',kolmest);
    gotoXY(53,whereY);write('| ',kolbil);
    gotoXY(60,whereY);writeln('|');
 
   end;
 end;
writeln('-----------------------------------------------------------');
close(f);
readln
end.