Подсчитать среднюю заработную плату, средний вес багажа с использованием массива записи

[Stei]

Здравствуйте! Помогите, пожалуйста, написать две программы.

1. Разработать программу подсчета средней заработной платы сотрудников отдела с использованием массива записей. Запись включает поля: nom, name, salary. Заменить запись с максимальной заработной платой в массиве на запись с минимальной заработной платой.

2. Подсчитать средний вес багажа пассажиров авиарейса. С использованием массива записей. Запись включает: nom, name, reis, weight.

У меня нет никаких набросков и т.д. Но не потому что мне лень, а я просто ноль в программировании. Очень очень прошу помочь. Уже несколько дней пытаюсь это сделать все.(

[Z1000000]

Вот тебе задача по смыслу похожая.
Чуть переделаешь.
Если совсем не можешь ее переделать, пиши на мыло. Договоримся.

{Организовать массив записей, который содержит информацию о нескольких деталях
 (название, масса, длинна, высота, ширина, материал). определить среднюю массу
 всех деталей.}
program zadacha2;
uses crt;
type TDetail = record
 Name,Material:string[16];
 height,long,width:Integer;
 Weight:Real;
end;
var
 i,n:integer;
 Details:array [1..60] of TDetail;
 AVGWeight : Real;
begin;
writeln ('Введите количество деталей');
readln(n);
AVGWeight := 0;
for i:=1 to n do
  begin
  writeln ('Деталь ',i,' ');
  write ('Введите наименование : ');
  readln(Details[i].Name);
  write('Введите материал : ');
  readln(Details[i].Material);
  write('Введите длину: ');
  readln(Details[i].long);
  write('Введите ширину: ');
  readln ( Details[i].width);
  write ('Введите высоту: ');
  readln(Details[i].height);
  write ('Введите массу: ');
  readln(Details[i].Weight);
  AVGWeight := AVGWeight + Details[i].Weight;
  end;

clrscr;
writeln ('Массив деталей');

writeln ('Наименование':16,'Материал':16,' Длина':6,' Ширина':7,' Высота':7,'Масса':6);
for i:=1 to n do
 begin
 writeln (Details[i].name:16,Details[i].Material:16,Details[i].long:6,Details[i].width:7,Details[i].height:7,Details[i].Weight:6:2);
 end;

writeln ('Средняя масса деталей : ',AVGWeight/n:10:2);
writeln('Программа успешно завершена. Нажмите любую клавишу.');
readkey;
end.

[Mad_Cat]

1)

const n=3;
 type Tperson = record
   nom:Integer;
   name:string[20];
   salary:Real;
 end;
 var S:array[1..n] of Tperson;
  imin,imax,i:Integer;
  sum:Real;
begin
  sum:=0;
  for I := 1 to n do
    begin
     Writeln( 'input #:');
     Readln(s[i].nom);
     Writeln( 'input name:');
     Readln(s[i].name);
     Writeln( 'input salary:');
     Readln(s[i].salary);
     sum:=sum+s[i].salary;
    end;
  Writeln('==========LIST==========');
  for i := 1 to n  do
    begin
     writeln(s[i].nom,'':2,s[i].name,'':2,s[i].salary:6:2);
    end;
  Writeln('===========END===========');
  Writeln('====Average Salary=======');
  writeln(sum/n:6:2);
  writeln('=========================');
  imax:=1;imin:=1;
  for i := 1 to n  do
    begin
     if s[i].salary>s[imax].salary then imax:=i;
     if s[i].salary<s[imin].salary then imin:=i;
    end;
    s[imax]:=s[imin];
    Writeln('========NEW LIST========');
  for i := 1 to n  do
    begin
     writeln(s[i].nom,'':2,s[i].name,'':2,s[i].salary:6:2);
    end;
   Writeln('===========END===========');
   Readln;
end.

2)

const n=3;
 type Tperson = record
   nom:Integer;
   name:string[20];
   reys:string[10];
   weight:Real;

 end;
 var S:array[1..n] of Tperson;
  c,i:Integer;
  sum:Real;r:string;
begin
  sum:=0;
  for I := 1 to n do
    begin
     Writeln( 'input #:');
     Readln(s[i].nom);
     Writeln( 'input name:');
     Readln(s[i].name);
     Writeln( 'input reis:');
     Readln(s[i].reys);
     Writeln( 'input weight:');
     Readln(s[i].weight);
    end;
  Writeln('==========LIST==========');
  for i := 1 to n  do
    begin
     writeln(s[i].nom,'':2,s[i].name,'':2,s[i].reys,'':2,s[i].weight:6:2);
    end;
  Writeln('===========END===========');
  Writeln('Input Reys');
  Readln(r);
   c:=0;
  for i := 1 to n  do
     if s[i].reys=r then begin Inc(c);sum:=sum+s[i].weight;
    end;
    if c<>0 then
    begin
    Writeln('====Average weight=======');
    writeln(sum/c:6:2);
    writeln('=========================');
    end
    else writeln('Takoro peuca HET');
   Readln;
   end.

[Stei]

Миллион вам спасибо!