roat10.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

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.