[xNiSSaNx]

Пример вот, переменные сам подставь
max:=pl[1];
for i:=1 to 5 do
if pl[i]>max then begin max:=pl[i]; f:=fam[i]; n:=nom[i]; fack:=fak[i]; end;


writeln('s=',max,' familia=',f,' number=',n,'fakultet=',fack);