Вводятся фамилия и баллы от 1 до 100. Вывести фамилию учеников с максимальным и минимальным баллами — Pascal(Паскаль)

uses crt;
var b:array[1..100]of integer;
s:array[1..100]of string;
i, k, min, max : integer;
 
begin
 clrscr;
 write('Количество учеников -> ');
 readln(k);
 for i:=1 to k do
 begin
  writeln(i,'-й ученик');
  write('Фамилия -> ');
  readln(s[i]);
  write('Баллы -> ');
  readln(b[i]);
 end;
 
 min := 1;
 max := 2;
 for i:=1 to k do if b[i] > b[max] then max := i else if b[i] < b[min] then min := i;
 writeln('MIN - ',s[min],' - ',b[min]);
 writeln('MAX - ',s[max],' - ',b[max]);
 readln;
end.