Функция работает из головной программы, но не работает из библиотеки

unit sort1;
interface
type
  aa = array[1..3]of integer;
  
  t = record
    fio: string;
    dr: string;
    ng: string;
    ex: aa;
    fo: string;
  end;
  m = array[1..5]of real;
  k = array[1..5]of t;
 
var
  ch: char;
  s: k;
  p, a, b, c, i, j: integer;
  sb: m;
  nb: k;
 
 
function sr: real;
procedure srt(var y: k);
 
implementation
 
function sr: real;
var
  b: integer;
begin
  c := 0;
  for b := 1 to 3 do
    c := c + s[i].ex[b];
  sr := c / 3;
end;
 
procedure srt(var y: k);
var
  i, j: integer;
  temp: t;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do
    begin
      if ((y[i].fio) > (y[j].fio)) and (sr > 4)
      then 
      begin
        temp := y[j];
        y[j] := y[i];
        y[i] := temp;
      end;
    end;
end;
end.
\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\
uses crt;
uses sort1;
var
  i: integer;
 
begin
  i := 1;
  
  while i < 6 do  
  begin
    ch := readkey;
    write(ch);
    if ch = ';' then 
    begin
      p := 0; 
      i := i + 1;
    end;
    if ch = ' ' then p := p + 1;
    if (p < 3) and (ch <> ';') then s[i].fio := s[i].fio + ch;
    if p = 3 then s[i].dr := s[i].dr + ch; 
    if p = 4 then s[i].ng := s[i].ng + ch;
    if p = 5 then s[i].ex[1] := ord(ch) - 48;
    if p = 6 then s[i].ex[2] := ord(ch) - 48;
    if p = 7 then s[i].ex[3] := ord(ch) - 48;
    if p = 8 then s[i].fo := s[i].fo + ch;
  end;
  for i := 1 to 5 do
    sr;
  srt(s);
  writeln;
  
end.[PASCAL]