Неправильный тип параметров подпрограммы split

[roman0495]

Не могу понять в чем ошибка

type
   index=record
      L:char;
      P:integer;
    end;
 
var
  idx:array[1..1000] of index;
  ti:index;
  f:text;
  s:array [0..50] of string;
  t,a:string;
  i,n,j,m,y:integer;
  b:boolean;
 
procedure split(delimeter:string;s:string;var sr:array of string;var count:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
 if t<>'' then begin
  inc(count);
  sr[count-1]:=t;
  t:='';
 end;
end;
begin
  count:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
 
function str2int(s:string):integer;
var
  c,r:integer;
begin
  Val(s,r,c);
  str2int:=r;
end;
 
procedure printNline(var vf:text;n:integer);
var
  t:string;
begin
  reset(vf);
  for n:=1 to n do readln(vf,t);
  writeln(t);
  close(vf);
end;
 
begin
  assign(f,'books.txt');
  reset(f);
  i:=0;
  b:=false;
  write('Введите фамилию автора:');readln(a);
  writeln('Список книг автора "',a,'" за период с 1960 по 1980гг:');
  while not eof(f) do begin
    readln(f,t);
    m:=m+1;
    split(' ',t,s,n);
    idx[m].L:=s[0][1];
    idx[m].P:=m;
     y:=str2int(s[n-1]);
     if (a=s[0]) and ((y>=1960) and (y<=1980)) then begin writeln(t);b:=true;end;
  end;
  close(f);
    if not (b) then writeln('Ничего не найдено:');
  readln;
  for i:=1 to m-1 do
    for j:=i to m do
      if idx[i].L>idx[j].L then begin
        ti:=idx[i];idx[i]:=idx[j];idx[j]:=ti;
      end;
  writeln('Список книг, упорядоченный по первой букве:');
  j:=0;
  for i:=1 to m do begin
    j:=j+1;
    if j=23 then begin writeln('Нажмите "Enter" для продолжения...');j:=1;readln;end;
    printNline(f,idx[i].P);
  end;
  readln;
end.

[ZX Spectrum-128]

roman0495, задавая вопрос, всегда поясняйте для какого диалекта Паскаля у вас "ошибка". Этот код нормально отрабатывает в fpc. В pabc.net действительно выдает такую ошибку. Как ее исправить, вам уже показали.