Решение задач с двумя типизированными файлами.

type rr=record
tabnom: integer;
fio:string[20];
otdel:integer;
dolgnost:string[10];
narushenie:string[1];
end;
var r,g:rr;
f1,f2: file of rr;
i,n,m,l:integer;
procedure vvod1;
begin rewrite(f1);
writeln('введи количество работников');
readln(m);
for i:=1 to m do begin
writeln('введи табельный номер');
readln(r.tabnom);
writeln('введи фио');
readln(r.fio);
writeln('введи отдел');
readln(r.otdel);
writeln('введи должность');
readln(r.dolgnost);
write(f1,r); end;
procedure prosmotr1;
begin reset(f1);
writeln('табельный номер',' ','фио',' ','отдел',' ','должность');
while not eof(f) do begin
read(f1,r);
writeln(r.tabnom,' ',r.fio,' ',r.otdel,' ',r.dolgnost);
end;
close(f1); end;
procedure vvod2;
begin rewrite(f2);
writeln('введи количество нарушивших режим');
readln(l);
for i:=1 to l do
begin writeln('введи табельный номер'); readln(g.tabnom);
writeln('введи вид нарушения'); readln(g.narushenie);
write(f2,g); end;
close(f2);
end;
procedure prosmotr2;
begin reset(f2);
writeln('шифр',' ','нарушение');
while not eof(f2) do begin read(f2,g);
writeln(g.tabnom,' ',g.narushenie);
end;
close(f2);
end;