Здравствуйте уважаемые эксперты. Помогите в решении задачи.
Условие задачи. Заданы сведения о сотрудниках некоторой организации. Формат сведений: Фамилия, заработная плата. Количество сведений любое. Сохранить сведения в памяти и файле. Прочитать из файла по запросу и определить среднюю заработную плату всех сотрудников организации. Предусмотреть дополнение сведений и их исправление.
Вид программы.

Нужно написать:
1. Процедуру сохранения сведений в файле.
2. Процедуру Обработки сведений.
Открыть файл и загрузить с изменением цвета шрифта. Вывести сообщение при отсуствии файла.
Используя функцию вычисления средней зарплаты вычислить среднюю зарплату. Фамилии вывести в Memo1 с упорядочиванием по алфавиту.
Результат программы.



Приложение:
type
TForm1 = class(TForm)
Panel1: TPanel;
MainMenu1: TMainMenu;
OpenDialog1: TOpenDialog;
ListBox1: TListBox;
StringGrid1: TStringGrid;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
StatusBar1: TStatusBar;
N5: TMenuItem;
N6: TMenuItem;
Edit1: TEdit;
procedure N4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
str=string[30];
sotrudnik=record
Familiya:str;
Zarplata:real;
end;
massiv=array of sotrudnik;
var
mas:massiv;
n:word;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject); \\Событие создания формы
StringGriD1.Cells[0,0]:='Фамилия';
StringGriD1.Cells[1,0]:='Зарплата';
StringGriD1.Font.Color:=clRed;
Setlength(mas,0);
end;

procedure TForm1.N5Click(Sender: TObject); \Метод для пункта меню «Сохранение данных в памяти»
var i:integer;
begin
i:=1;
setlength(mas,1);
while StringGrid1.Cells[0,i]<>'' do
begin
mas[i-1].Familiya:=StringGrid1.Cells[0,i];
mas[i-1].Zarplata:=StrToInt(StringGrid1.Cells[1,i]);
i:=i+1;
Setlength(mas,i);
end;
n:=i-1;
statusBar1.Panels.Items[0].Text:='n ='+ IntToStr(n);
end;

function Count(var s:massiv):real; \Функция для определения средней зарплаты, которая не использует компоненты формы.
var i:integer;
p:real;
begin
p:=0;
for i:=0 to n-1 do
with s[i] do
p:=p+s[i].Zarplata;
result:=p/n;
end;

procedure TForm1.N6Click(Sender: TObject); \применение функции
var i:integer; k:real;
begin
i:=1;
setlength(mas,1);
while StringGrid1.Cells[0,i]<>'' do
begin
mas[i-1].Familiya:=stringgrid1.Cells[0,i];
mas[i-1].Zarplata:=StrToInt(StringGrid1.Cells[1,i]);
i:=i+1;
setlength(mas,i);
end;
n:=i-1;
k:=count(mas);
Edit1.Text:=FloattostrF(k,ffFixed,8,4);
end;

end.