program strings;
uses crt;
var zk, hilfszk, gesuchtezk:string;
    poszk, posges, z: integer;

   begin
    clrscr;
    write ('Bitte geben sie die Zeichenkette ein:');
    readln(zk);
    write('geben sie die gesuchte Zeichenkette ein:');

    readln(gesuchtezk);
    hilfszk:=zk;
    poszk:=pos(gesuchtezk,zk);
    while poszk<>0 do
       Begin
        z:=z+1;
        posges:=posges + poszk;
        write(posges, ' ');
        delete(zk,1,poszk);
        poszk:=pos(gesuchtezk,zk);
      end;
    write('position des Zeichens: ',z);
    repeat until keypressed;
end.