procedure TForm1.Button1Click(Sender: TObject);

begin

  {перевірка наявності даних у вікнах введення}

  if (length(Edit1.Text)=0)or(length(Edit2.Text)=0)or

     (length(Edit3.Text)=0)then

       begin

         ShowMessage('Введіть усі відомості про особу');

         exit;

       end;

  {записування у файл значень про працівника}

  reset(f);//Відкриття файла

  seek(f,FileSize(f));//Переведення покажчика на кінець файла

  with z do

    begin

      nv:=ComboBox1.Text;

      pib:=Edit1.Text;

      pos:=ComboBox2.Text;

      okl:=StrToInt(Edit2.Text);

      prem:=StrToInt(Edit3.Text);

    end;

  write(f,z);

  CloseFile(f);

  {очищення вікон для нових значень}

  Edit1.Clear; Edit2.Clear;Edit3.Clear;

  ComboBox1.Text:='';

  ComboBox2.Text:='';

  {Компоненти неактивні}

  Edit1.Enabled:=false; Edit2.Enabled:=false;

  Edit3.Enabled:=false;

  ComboBox2.Enabled:=false;

  {Компонент активний}

  ComboBox1.Enabled:=true;

end;

{Вкладка ПЕРЕГЛЯД ДАНИХ}

//Підпрограма перегляду даних у файлі

procedure TForm1.Button3Click(Sender: TObject);

var szp: string;

      i: integer;

begin

  reset(f);

  seek(f,0);

  with StringGrid1 do//Підпис стовпців

    begin

      cells[0,0]:='назва відділу';

      cells[1,0]:='ПІБ';

      cells[2,0]:='Посада';

      cells[3,0]:='Оклад';

      cells[4,0]:='Премія';

    end;