Отфильтровать сумму зарплаты меньше 4500 р. Построить гистограмму зарплаты сотрудников, на оси Х
написать фамилии сотрудников/

 Иван-дурак          -  конь
 Али-Баба             -   пещера с сокровищами
Мышка-норушка   -  Теремок
Иван-царевич       -  избушка на курьей ножке
Лиса -                  Колобок, Колобок, спой мне песенку! - Колобок
Королевич Елисей   -         Ветер, ветер! Ты могуч, ты гоняешь стаи туч Ты волнуешь сине море,Всюду веешь на просторе. Не боишься никого, Кроме бога одного. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                               -      Ветер  
Королевич Елисей                 Месяц, месяц, мой дружок,Позолоченный рожок! Ты встаешь во тьме глубокой, Круглолицый, светлоокий, И, обычай твой любя, Звезды смотрят на тебя. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                                              -   Месяц
                   

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится