Question

Sa se scrie un program pascal cu instructiunile copy, pos, insert, length, detele. Help !!!

Answer 1

Program unu;
Var s,t:string;
n,i,r:integer;
Begin
Write('String=');Readln(s);
t:='';
n:=length(s);
r:=0;
for i:=1 to n do
if pos(s,'aeiou') then
begin
r:=r+1;
insert(s,t,r);
delete(s,i,1);
end;
write(t,' ',s);
end.