Запихнуть часть кода в процедуру

Program pr6;
type
  TData=^Data;
   Data=record
    name:String[16];
    io:String[5];
    date:String[4];
    propiska:String[2];
    pol:String[2];
    next:TData;
  end;
 
VAR
spisok, work, work1: TData;
place: String;
inp: text;
out: text;
i,h: integer;
 
 
BEGIN
 assign(inp,'dan1.inp');
 assign(out,'res6.out');
 reset(inp);
 rewrite(out);
 
begin
     New(work);
     spisok:=work;
     with work^ do
     begin
      readln(inp,name,io,date,propiska,pol);
     end;
     while not Eof(inp) do
     begin
          new(work^.next);
          work:=work^.next;
          with work^ do
          begin
           readln(inp,name,io,date,propiska,pol);
          end;
     end;
end;
 
work^.next:=nil;
work:=spisok;
 
while work<>nil do
begin
with work^ do
begin
 writeln(out,name,io,date,propiska,pol);
end;
 
work:=work^.next;
end;
 
writeln(out,'=========================================');
 
<><><><><><><><><><><><><><><><><><><><><><><><>
for i:=1 to 10 do
begin
work:=spisok;
while work<>nil do
begin
 if work^.date < work^.next^.date then
 begin
 with work^ do
 begin
 
place:=next^.name;
 next^.name:=name;
 name:=place;
 
 place:=next^.io;
 next^.io:=io;
 io:=place;
 
 place:=next^.date;
 next^.date:=date;
 date:=place;
 
 place:=next^.propiska;
 next^.propiska:=propiska;
 propiska:=place;
 
 place:=next^.pol;
 next^.pol:=pol;
 pol:=place;
 
 end;
 end;
 work:=work^.next;
end;
end;
<><><><><><><><><><><><><><><><><><><><><><><><>
work:=spisok;
 
while work<>nil do
begin
with work^ do
begin
 if (propiska=' p') and (pol=' m') then
 begin
 writeln(out,name,io,date,propiska,pol);
 h:=h+1;
 IF h=3 THEN
 BEGIN
 break;
 END;
 end;
end;
 
work:=work^.next;
end;
 
close(inp);
close(out);