Проверьте код

type
Puti=record
nom:string[4];
punkt_n:string[10];
punkt_k:string[10];
opisanie:string[10];
Sred_vrem:string[10];
interval:integer;
end;
var
f1:file of Puti;
i,kk,n:integer;
a:puti;
yn,da:char;
punktik: string[10];
begin
assign (f1,'C:\puti1.txt');
Writeln ('sozdat File? y/n ');readln (da);
if da ='y' then
begin
write('vvedite kolichestvo zapisey ');readln(N);
rewrite(f1);
for i:=1 to n do
begin
write('vvedite nomer '); readln (a. Nom);
write('vvedite punkt nachalniy '); readln (a. punkt_n);
write('vvedite konechniy punkt '); readln (a. punkt_k);
write('vvedite opisanie '); readln (a. opisanie);
write('vvedite srednie vremya '); readln (a. Sred_vrem);
write('vvedite interval '); readln (a. interval);
write (f1,a);
end;
close (f1);
end;
reset(f1);
Writeln;
Writeln('Raspisanie gorodskix avtobysov');
while not Eof(f1) do
begin
Read(f1,A);
with a do
writeln(Nom,' ',punkt_n,' ',punkt_k,' ',opisanie,' ',Sred_vrem,' ',interval);
end;
close(f1);
Writeln('Vvedite punkt naznacheniya');Readln(punktik);
kk:=0;
reset(f1);
while not Eof(f1) do
begin
read(f1,a);
with a do
if (interval<10) and (punkt_k=punktik) then
begin
Writeln ('Marshrut: ',Nom,punkt_n,punkt_k,opisanie,Sred_vrem,interval);
kk:=kk+1
end;
end;
Writeln ('Kolichestvo marshrytov: ', kk);
Close (f1);
readln;
end.