Cadena

ABECEDARIO
{Andrea Fallas Morales, 85295614, kandrea26@hotmail.com. Este programa inserta el Abecedario partir de una letra digitada por el usuario. El procedimiento principal es: "Complete" ya queeste es el que invoca el resto del abecedario a partir de la letra digitada. Fecha de creación: sábado 27 de octubre. Fecha de última modificación: sábado 27 de octubre}
Program Abecedario;
usescrt;
var
letra,ABCD,subcadena:string;
posi,k:integer;

{Este procedimiento pide al usuario que digite una letra y la guarda en una variable}
Procedure Lea;
begin
writeln('Digite una letra delAbecedario');
readln(letra);
end;

{Este Procedimiento inserta el abecedario desde cierta letra digitada, cuenta con una variable ABCD que contiene el abecedario, una variable K que tiene el numerode caracteres del Abecedario, la variable posi que indica en que posición del abecedario esta la letra digitada por el usuario, la variable subcadena que tiene y muestra el abecedario a partir de laposición donde está la letra digitada}
Procedure Complete;
begin
ABCD:='abcdefghijklmn;opqrstuvwxyz';
k:=length(ABCD);
posi:=pos(letra,ABCD);
subcadena:=copy(ABCD,posi,k);
writeln(subcadena);end;

begin
clrscr;
Lea;
Complete;
readkey;
end.

Unión intercalada de dos cadenas

{Andrea Fallas Morales, 85295614, kandrea26@hotmail.com. El procedimiento principal es: "Intercalas" yaque este es el que une intercaladamente las 2 cadenas digitadas por el usuario. Fecha de creación: sábado 27 de octubre. Fecha de última modificación: sábado 27 de octubre}

Program Una_Cadena;
usescrt;
var
cadena1,cadena2:string;
cant,k,j,num,c:integer;
coriginal,letra:string;

Procedure Lea;
begin
writeln('Digite una cadena');
readln(cadena1);
writeln('Digite otra cadena');readln(cadena2);
end;

{Este procedimiento une dos cadenas, contiene las variables K que indica la posición de la cual se va a extraer el caracter en la cadena2 y J que nos dice en que posición de la...