PROGRAM EJER63; {Autor: Victor Sanchez Sanchez email: [email protected]}
USES CRT;
VAR frase1 : STRING;
VAR frase2 : STRING;
BEGIN
CLRSCR;
{Este programa inserta la frase2 en la frase1}
WRITELN ('Se introducira la frase2 en la frase1');
WRITELN ('');
frase1 := 'Curso de Pascal';
frase2 := 'Programacion en ';
WRITE ('Frase1: ');
WRITELN (frase1);
WRITE ('Frase2: ');
WRITELN (frase2);
WRITELN ('');
INSERT (frase2, frase1, 10);
WRITELN (frase1);
END.