Составьте программу которая пределяет позицию заданного слова

Вот на pascal. program css; var a,b,s:string; i,k:integer; begin readln (a); readln (b); k:=length (b); for i:=1 to (length (a)) do begin s:= copy (a,i,k); if (s = b) then begin write (i); end; end; end.