Работа с комбинированным типом

[Stuff]

Я написал программу решения задачи: Среди работников данного предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности.
ВОПРОС:как будет выглядеть программа, если убрать оператор присоединения with.

program rab1;                                                           
type
 rabochi=record
  surname,profession:string;
  stazh,zp:word; end;
VAR
 n,i,srednya_zp:integer;
 man:array [1..15] of rabochi;

begin
 writeln('skolko rabochih?');
 readln(n);
 for i:=1 to n do
  with man[i] do
  begin
   writeln('Familia rabochego #',i);
   readln(surname);
   writeln('Ego zarplata:');
   readln(zp);
   writeln('Skolko let rabotaet?');
   readln(stazh);
   writeln('Dolzhnost`:');
   readln(profession);
  end;
 srednya_zp:=0;
 for i:=1 to n do
  WITH man[i] do srednya_zp:=srednya_zp+zp;
 srednya_zp:=srednya_zp div n;
 writeln;
 writeln('Bolee 10 let prorabotali:');
 write('Surname':13);
 write('Zarplata':13);
 write('Stazh raboti':13);
 writeln('Dolzhnost':13);
 for i:=1 to n do
  with man[i] do
   If stazh>10 then
   begin
    write(surname:12);
    write(zp:12);
    write(stazh:12);
    writeln(profession:12);
   end;
 writeln;
 writeln('Ih zarplata nizhe srednei:');
 for i:=1 to n do
  with man[i] do
   If zp<srednya_zp then writeln(surname);
 readln;
end.

[ROMA2PVT]

http://www.pascal.helpov.net/index/p...rd_programming