s := 0;
for i:=1 to 5 do
  s:=s+gr[i].zp; //s і є повна зп всіх працівників (тільки називайте змінні зрозуміліше)

так само і податок

allTax := 0;
for i:=1 to 5 do
  allTax:=allTax+gr[i].pd; //податок

Ні, в коді не можу, але спробую Вас на шлях істинний навести.
Вирішуйте задачу поетапно, як в завданні, розбивайте її на підзадачі,

Умова задачі: У файлі записано: прізвище працівника, нарахована зарплата, знятий податок. Порахувати загальну суму зароблених коштів і вивести прізвище працівника, який заплатив максимальний податок.

1.1. У файлі записано: прізвище працівника, нарахована зарплата, знятий податок;
2. Порахувати загальну суму зароблених коштів;
3. вивести прізвище працівника, який заплатив максимальний податок;
П. 1. у Вас налагоджено, далі робіть пункт 2, як я навів навів, т.е. в циклі доплюсовуєте до деякої змінної "загальний податок" податок ітого користувача.
А далі пункт 3. Просто в циклі перевіряйте, чи і-тий користувач заплатив більше ніж в змінній максТакс (яка до циклу має рівнятись 0), якщо так - то змінну максТакс присвоюйте цьому податку, а змінній "Найдовшийбільший користувач" номер того користувача (і), а в інакшому випадку (коли попередня умова не склалась) просто нічого не робите.
Після того циклу будете мати дві змінні, відповідно - Значення найбільшого податку (МаксТакс), і Номер користувача. - просто виведіть це.

vasiliyok, що саме у Вас не виходить, код в студію? Будемо обговорювати.

Навіщо у Вас два вкладених циклу? upd - вони не вкладені, соррі.
Ваш код з моїми коментарями, по перше я нормально відформатував, (зробив відступи) щоб наглядно було видко як іде виконання програми

end;
      reset(b); 
      s:=0; alltax:=0;
      for i:=1 to 5 do //в цому циклі рахуємо загальний фонд зп, зп всіх робітників разом, ок;
        s:=s+gr[i].zp;
      alltax:=alltax+gr[i].pd; //рахуємо податок, але: по перше т.я. воно не в блоці бегін-енд то виконується один раз;
      begin 
        maxtax:=0;
        for i:=1 to 5 do
          if maxtax<gr[i].pd then 
            gr[i].pd:=maxtax; //тут треба навпаки ви присвоюєте структурі значення змінної максТакс, а треба навпаки (maxtax := gr[i].pd)
          for j:=i + 1 to 4 do //навіщо цикл?
            writeln(gr[i].pd,s); //тут виводить рандомно від 4 до 0 разів, або хз скільки однакові стрічки;
      end;

Другий цикл прибрати, блоки бегін-енд поставити на свої місця, вони ніби дужок, але для виконання.
приклад:

for i:=1 to 5 do
begin
  //щось виконується в циклі;
  //щось теж виконується в тому ж циклі;
end;

...

for i:=1 to 5 do
  //щось виконується в циклі;
//щось теж виконується поза циклом;

Нащо ви таки зробили вкладені цикли?
Краще так:

 reset(b);
      s:=0; alltax:=0;maxtax:=0;
      for i:=1 to 5 do
      begin 
        alltax:=alltax+gr[i].pd;
        s:=s+gr[i].zp;
      end;
          
      for i:=1 to 5 do
        if maxtax<gr[i].pd then
          maxtax:=gr[i].pd
            

Коли рахуєте maxtax, Вам ще треба зберігати не тільки розмір податку, але і номер працівника (не забувайте про begin-end
ну а далі просто виводьте

gr[i].surname

, замість і - номер працівника, що вирахуєте.