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.
|
