не выводит искомый текст

[3Doleg]

Всем привет
Из файла А выбрать и переписать файл в B информацию о кинолентах, снятых киностудией им. Довженко в 1985-92 гг
хто может переделайте пожалуйста, не ищет и не переписывает в другой файл)
вот код:

uses crt;
const n = 2;
type pia = record;
na:string;
ye:integer;
ki:string;
re:string;
end;
var mas:array[1..n]of pia;
i, j, tmp:integer;
a, b:text;
s : string;
begin clrscr;
assign(a, 'a1.txt');
rewrite(a);
assign(b, 'b1.txt');
rewrite(b);
 
writeln('-----------------------------------------');
for i := 1 to n do begin
with mas[i] do begin
writeln('vvedit nazvy ',i,' filma: ');  write('| ');
readln(na);
writeln(a, na);
 
writeln('vvedit rik vuhody ',i,' filma: ');      write('| ');
readln(ye);
writeln(a, ye);
 
writeln('vvedit kinostydiju ',i,' filma: ');     write('| ');
readln(ki);
writeln(a, ki);
 
writeln('vvedit rejusera ',i,' filma: ');        write('| ');
readln(re);
writeln(a, re);
end;
end;
writeln('-----------------------------------------');
 
reset(a); 
 
while not eof(a) do begin
with mas[i] do begin
readln(a, ye);
if (ye in [1985..1992]) then begin
writeln(b, ye);
end;
end;
end;

reset(a);  reset(b);

s := 'Dovjenka';
while not (eof(a)) do begin
with mas[i] do begin
readln(a, ki);
if (ki = s) then begin
writeln(b, '-------------------------------------');
writeln(b, na);
writeln(b, ye);
writeln(b, ki);
writeln(b, re);
writeln(b, '-------------------------------------');
end;
end;
end;
 
close(a); close(b);
readkey;
end.

[3Doleg]

uses crt;
const n = 3;
type pia = record;
na:string;
ye:integer;
ki:string;
re:string;
end;
var mas:array[1..n]of pia;
i, j, tmp:integer;
a, b:text;
s : string;
test : char;
begin clrscr;
assign(a, 'a1.txt');
rewrite(a);
assign(b, 'b1.txt');
rewrite(b);

writeln('-----------------------------------------');
for i := 1 to n do begin
with mas[i] do begin
writeln('vvedit nazvy ',i,' filma: '); write('| ');
readln(na);
writeln(a, na);

writeln('vvedit rik vuhody ',i,' filma: '); write('| ');
readln(ye);
writeln(a, ye);

writeln('vvedit kinostydiju ',i,' filma: '); write('| ');
readln(ki);
writeln(a, ki);

writeln('vvedit rejusera ',i,' filma: '); write('| ');
readln(re);
writeln(a, re);
end;
end;
writeln('-----------------------------------------');

reset(a);

s := 'Dovjenka';
while not (eof(a)) do begin
with mas[i] do begin
readln(a, na);
readln(a, ye);
readln(a, ki);
readln(a, re);
if ( (ki = s) AND ((ye >= 1985) OR (ye <=1992)) ) then begin
writeln(b, '-------------------------------------');
writeln(b, na);
writeln(b, ye);
writeln(b, ki);
writeln(b, re);
writeln(b, '-------------------------------------');
end;
end;
end;

close(a); close(b);
readkey;
end.

вот готовая)