Добавить в файл те данные, что мы вводим с клавиатуры

program ex_1;
uses CRT;
type anketa=record
     fio: string[45];
     rik: word;
     Oklad: string[99];
     stazh: string[99];
 
 
end;
var robitnuk: array [1..100] of anketa;
    i,v,n: integer;
    f:file of anketa;
    f1:text;
begin
CLRSCR;
repeat
write('input kilkist robitnukiv=>');
readln(n);
until n in [1..100];
writeln ('Input information:');
for i:=1 to n do
begin
writeln('Robitnuk ',i);
with robitnuk[i] do
for i:=1 to n do
begin
assign (f,'D:\data.txt');
rewrite(f);
write ('Input F.I.O->  ');
readln (robitnuk[i].fio);
write('Input rik narodzhenya->  ');
readln(robitnuk[i].rik);
write('Input oklad ->  ');
readln(robitnuk[i].oklad);
write('Stazh robotu ->  ');
readln(robitnuk[i].stazh);
writeln;
writeln;
assign(f1,'D:\REZ.txt');
rewrite(f1);
end;
for i:=1 to n do
begin
writeln;
writeln(f1,'Name robitnuka: ', robitnuk[i].fio);
writeln(f1,'Rik narodzennya: ',  robitnuk[i].rik);
writeln(f1,'Rozmir oklady: ',robitnuk[i].oklad);
writeln(f1,'Stazh robotu: ',robitnuk[i].stazh);
writeln;
end;
end;
for i:=1 to n do with robitnuk[i] do
begin
if rik<=1954 then writeln('na pencii robitnuk(u): ',robitnuk[i].fio)
end;
close(f);
close(f1);
end.