помогите пожалуйста что тут неправильно

program KURSOVAYA_4_1;
uses crt;
type A=array[1..10] of integer;
var str,min:string;
    let:A;
    i,j,k,n,l,m:integer;
  begin
    clrscr;
    writeln ('Vvedite tekst razdelyaya stroki *');
    readln(str);
    k:=length(str);
    n:=1;
    let[1]:=1;
    for i:=1 to k do
    if str[i]='*'then
      begin
       n:=n+1;
       let[n]:=i+1;
      end;
    writeln ('kolichestvo strok n=',n);
    for j:=1 to n do
      begin
      min:='z';
      for i:=1 to n do
      if str[let[i]]<min then
       begin
        min:=str[let[i]];
        l:=let[i];
       end;
      writeln;
      i:=0;
      repeat write (str[1+i]);
      i:=i+1;
      until ((str[1+i]='*') or (1+i>k));
      str[1]:='z';
      end;
    readkey;
 end.

 
 for j:=1 to n do
    begin
       min:='z';
       for i:=1 to n do
          if str[let[i]]<min then
              begin
                 min:=str[let[i]];
                 l:=let[i];
              end;
       writeln;
       i:=0;    /*ОШИБКА*/
       repeat 
           write (str[1+i]);
           i:=i+1;
        until ((str[1+i]='*') or (1+i>k));
        str[1]:='z';
    end;