бугалтерия учреждения подготовила ведомость зарплаты сотрудников, в которой указаны фамилии сотрудников и зарплата каждого. отдельный сотрудник упомянут в ведомости один раз. найти сотрудников с наименьшей и наибольшей зарплатой. у меня получилось вот что, но это неправильно помогите исправить!!!
Program Zplata;
uses wincrt;
var
b:array[1..10] of real;
k,j,i,n:integer;
Amin,max:real;
a: String[20];
begin
write ('n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]); end;
for i:=1 to n do begin
write('b[',i,']=');
readln(b[i]); end;
Amin:=b[1];
max:=b[1];
for i:=1 to n do begin
if b[i]<Amin then begin Amin:=b[i];j:=i; end;
if b[i]>max then begin max:=b[i];k:=i;end;
end;
WriteLn('min=',Amin,'---',' ',a[j]);
writeln ('max=',max,'---',' ',a[k]);
end.