clever person
Какая версия Pascal у вас?
Привожу решение для DOS-версии, под Win-версию переделаете сами.
Допустим, что в ведомости 10 фамилий, как в вашей программе.
Program Zplata;
uses crt;
var
a: array[1..10] of string; {массив фамилий}
b:array[1..10] of real; {массив зарплата}
i,n,k:integer;
min,max:real;
begin
clrscr;
for i:=1 to 10 do begin {цикл заполнения массивов}
write('Введите фамилию сотрудника');
readln(a[i]);
write('Введите з/п сотрудника');
readln(b[i]);
end;
min:=b[1];
max:=b[1];
for i:=1 to 10 do
begin
if b[i]<min then
begin min:=b[i]; n:=i; end;
if b[i]>max then
begin max:=b[i]; k:=i; end;
end;
writeln('min=',min,'--- ',a[n]);
writeln ('max=',max,'--- ',a[k]);
end.
Ваша ошибка в том, что вы никак не определили массив фамилий, переменная а у вас строковая, а не статический массив. И еще, не понятно, зачем вы запрашиваете n, если у вас объявлен массив зарплат из 10 элементов. Зарплату же должны начислять всем сотрудникам :)
* причина редактирования - исправлено начальное значение параметра цикла