[~Lexx~]

У меня не работает с Lib_jsr75i .
Что делать?

Program Prog;
Uses jsr75i, imloadjsr75;
Var
  img: array[1..2] of image;
  f, ss, sss, w: string;
  way: array[0..255] of string;
  i, l, n, z: integer;
  
Begin
  ss:= '/c:/pictures/1.jpg';
	w:= '/c:/pictures/';
  f:= get_files('/c:/pictures/');
  l:= length(f);
  
  for i:= 1 to l do begin
    sss:= copy(f, i, i + 1);
    if sss <> '|' then ss:= ss + sss else begin
    way[z]:= ss;
    z:= z + 1;
    if i < n then i:= i + 1;
    ss:= '';
  end;
if i = l then z:= z - 1;
end;
	
for i:= 0 to z do begin
  ss:= w + way[i];}
  img[1]:= imloadjsr75.loadimage(ss);
  DrawImage(img[1], 0, 0);
  repaint;
  delay(5000);
  end;
  SetColor(0, 0, 0);
  FillRect(0, 0, 176, 220);
  SetColor(255, 255, 255);
  DrawText('END', 80, 104);
  delay(10000);
End.