Нет перегруженной подпрограммы с такими типами параметров

type
  sar = array of string;
 
var
  s: string;
  a, b: sar;
  i, j, k: integer;
  ok: boolean;
 
procedure split(delimeter: string; s: integer; var sr: sar);
var
  cnt, i: integer;
  t: string;
begin
  read(s);
  
  begin
    if t <> '' then begin
      inc(cnt);
      Cnt:= Length(sr);
      sr[cnt - 1] := t;
      t := '';
    end;
    begin
      cnt := 0;t := '';
      for i := 1 to length(s) do
        if pos(s[i], delimeter) = 0 then t := t + s[i] else additem;
      additem;
      endp;
      var
      i: integer;
      begin
        writeln(s);
        for i := low(t) to high(t) do writeln(t[i]);
        readln;
      end;
      begin
        write('Введите строку:');readln(s);
        Split('.,- :;', s, a);
        s := '';
        for i := low(a) to high(a) do s := s + a[i] + ' ';
        writeln('1)', #10, #13, s); readln;
        printarray('2)', a);
        writeln('3)');
        for i := low(a) to High(a) do writeln(lowercase(a[i][1]) + copy(a[i], 2, length(a[i])));
        readln;
        k := 0;
        for i := low(a) to high(a) do 
        begin
          for j := i to high(a) do
            if (upcase(a[i]) > upcase(a[j])) then begin
              s := a[i];
              a[i] := a[j];
              a[j] := s;
            end;
          if (k = 0) or (a[i] <> b[k - 1]) then begin
            k := k + 1;
            setlength(b, k);
            b[k - 1] := a[i];
          end;
        end;
        printarray('4)', b);
        printarray('5)', a);
      end;
    end;
  end;
end;
 
begin
end.

        Split('.,- :;', s, a);

procedure split(delimeter: string; s: integer; var sr: sar);