roat10.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 15 行

var s,n:string;
c:char;
    i:integer;
begin
write('s=');readln(s);
write('c=');readln(c);
for i:=1 to length(s) do
    begin
    n:=s;
    delete(n,i,1);
    insert(c,n,i);
     writeln(n);
     end;
readln;
end.