Сохранение и загрузка информации в файл

uses crt;
cоnst n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string[20];
end;
 
Var
mas:array[1..n] of sotrud;
count: word;
oper: char;
f:integer;
f1,f2 : file of char;
procedure add;
begin
inc (count);
write('fam:');
readln(mas[count].fam);
write('name:');
readln(mas[count].name);
write('podrazd:');
readln(mas[count].podrazd);
write('oklad:');
readln(mas[count].oklad);
end;
 
procedure list;
var i,k:integer;
begin
if count >0 then
begin
writeln ('n fam name podrazd oklad');
i := 1;
while i <= count do
Добавить к программе след действия:
Сохранение и загрузка информации в текст. файл.
Сохранение и загрузка информации в типизированный файл.(оформить все в виде процедуры)
 
begin
clrscr;
with mas [ i ] do
writeln (i:2, fam:6 , name:5,podrazd:7 , oklad:9 );
writeln('Предыдущий: - 1');
writeln('Следующий: - 2');
readln(k);
if k=1 then dec(i)
else if k=2 then inc(i)
else exit;
end;
end;
end;
 
begin {MAIN}
assign (f1,'imput.txt');
assign (f2,'res.txt');
 
while (true) do
begin
clrscr;
Writeln('Viberite deistvie: 1-Dobavit,2-Spisok 3 - vihod');
readln(f);
if f=1 then add;
if f=2 then list;
if f=3 then break;
end;
end.

procedure zagr; \\Сохранение и загрузка информации в текст. файл.
var f1,f2 : text;
begin
     assign(f1,' j:\input.txt');
     assign(f2,' j:\res.txt');
     reset(f1);
Rewrite(f2);
writeln(f2);
Close(f2);
 
     close(f1);
end;
 
procedure zagruz_TIP; \\Сохранение и загрузка информации в типизированный файл.
var f1,f2: file of text;
begin
     assign(f1,' j:\input.txt');
     assign(f2,'j:\res.txt');
     reset(f1);
 
     read (f1  );
     rewrite(f2);
     write(f2);
     close(f2);
     close(f1);
end;