Определить, есть ли в последовательности чисел заданная подпоследовательность

uses crt;
 var a:array[1..30] of byte;
       l,i,j,f,c,sum:byte;
       kod:integer;
       z,b,f1,s:string;
        begin
        clrscr; randomize;
        write ('Введите последовательность: '); readln(z);
        for i:=1 to 15 do begin
          a[i]:=random(10)+1;
          write (a[i]);
        end;
        l:=length(z);
        b:=copy(z,1,1);
        val(b,c,kod);
        for i:=1 to 15 do begin
          if a[i]=c then begin
            for j:=i to l do begin
              f:=a[j];
              str(f,f1);
              s:=s+f1;
              f:=0;
              f1:='';
            end;
            if s=z then inc(sum);
          end;
        end;
        writeln;
        if sum>0 then write ('Есть.')
        else
        write ('Нет.');
     readln;
end.