Выделить такую подпоследовательность, что ее сумма равна числу n

Program posled;
Var a: array[1..100] of integer;
      i, n: integer;
Begin
  Write (‘Сколько элементов? ’);
  Readln (n);
   For i=1 to n do
       begin       
            a[i]:= Random(58)-23;
             writeln (a[i],’ ‘);
       end;
End.

const
  m = 10;
 
var
  i, j, k, i1, ik: integer;
  n, sm: integer;
  a: array [1..m] of integer;
  yes: boolean;
 
begin
  writeln('Исходная последовательность: ');
  for i := 1 to m do
  begin
    a[i] := random(m);
    write(a[i]:5);
  end;
  writeln;  
  write('Введите число: ');
  readln(n);
  i1 := 1;
  ik := 1;//пока макс=первому элементу, посл. от 1 до1
  yes := false;
  for i := 1 to m do//число элементов послед. от 1 до 9
    for j := 1 to m - i + 1 do//начало последовательностей от 1 до 9-число эл.+1
    begin
      sm := 0;//сумма
      for k := j to j + i - 1 do//последовательность
        sm := sm + a[k];
      if sm = n then//если больше
      begin
        yes := true;
        i1 := j;//начало
        ik := j + i - 1;//конец
      end;
    end;
  if yes then 
  begin
    writeln('Подпоследовательность с суммой, равной числу: ', n);
    for i := i1 to ik do
      write(a[i]:5)
  end
  else
    writeln('Нет такой подпоследовательности');
end.