type Tstring=array[1..50] of string; var s:string; n:byte; procedure DeleteWord(var st:string;n_word:byte); var i,k:byte; w_arr:Tstring; begin st:=st+' '; while (st[1]=' ') and (st<>'') do delete(st,1,1); k:=0; while st<>'' do begin inc(k); w_arr[k]:=Copy(st,1,Pos(' ',st)-1); Delete(st,1,Pos(' ',st)); while (st[1]=' ') and (st<>'') do delete(st,1,1); end; if n_word<=k then for i:=1 to k do if i<>n_word then st:=st+w_arr[i]+' '; end; begin write('Vvedite text:'); readln(s); write('Nomer udalyaemogo slova:'); readln(n); DeleteWord(s,n); writeln('Novaya stroka:'); writeln(s); end. |