How to print all parts of a word starting with a given character in Turbo Pascal language?

Question

Pascal

I can't come up with an algorithm that will output parts of this word from a word that begin with an arbitrary entered character. For example: the word "Evanescent", when entered "E" should output: Evanescent escent ent Thank you.

Answer 1

The question is closed

var
    str,let,tmp:string;
    i,k,j:integer;
    x:array[1..50] of integer;

    begin
    readln(str);
    readln(let);
    tmp:=str;
    j:=1;
    while pos(let,tmp) > 0 do begin
        x[j]:=pos(let,tmp);
        tmp[pos(let,tmp)]:='0';
        inc(j);
    end;
    for i:=1 to j-1 do begin
       for k:=x[i] to length(str) do begin
           write(str[k]);
       end;
    writeln;
    end;
    end.