Pascal/Turbo Pascal - funcion delete

holaaa alguieen me prodria ayudaar... no entiendo como usar la funcion delete..

Función Delete : Borra o elimina una subcadena de una cadena. Una subcadena es una cadena contenida dentro de otra de mayor longitud. La sintaxis es:

Delete (cadena,posición,número)

Cadena : Representa la cadena original o fuente

Posición : Representa la posición del primer carácter a suprimir

Número: Es la cantidad de caracteres que se borrarán (debe ser un valor entero)

supongamos.. cadenaa si se q es osea mi tipo de variable (string..) pero lo q es cadena y posicion no tenia ni la mas remoraa ideaa.. o a lo mejor sii pero estoy condundioo si alguieen me lo puede explicaar de otra maneraa seria muy ultiil muchas grax.!!
rOo!!*

A ver...

Delete(Cadena, Pos, Cant);

donde "Cadena" es de tipo string y "Pos" y "Cant" de tipo integer. Borra en Cadena comenzando en la posición Pos tantos caracteres como diga Cant.

O sea que si tenemos por ejemplo la cadena "abcdefghijk"...

S:='abcdefghijk';
Delete(S,3,5);

S ahora valdrá "abhijk".

hola tengo una duda si yo ingreso una frase y quiero borrar solo los espacios en blanco como lo hago con la funcion delete??
gracias

{Ejemplo de borrado de blancos en una cadena}
{te borrara todos los blancos de la cadena entrada como cad}
{mira cadena entrada sera [ Ángel tenia una motocicleta y se rompió] te quedara}
{ [ Ángelteniaunamotocicletayserompió] asín}

program borrado;
uses
crt;
var
cadena : string;
i : integer;

procedure borra_blancos(cad : string);
begin
for i := 1 to length(cad) do
begin
if cad[i] = ' ' then
delete(cad,i,1);
end;
writeln(cad);
end;


begin
clrscr;
cadena := [ Ángel tenia una motocicleta y se rompió]'';
writeln(cadena);
borra_blancos(cadena);
readln;
end.

Hola de nuevo...ahora tengo otro problema para que me ayuden ahora es con vectores

quisiera saber el algoritmo de:

dado un vector (A) con 10 elementos generar un vertor (B) con los mismos elementos del arreglo (A)

pero en orden inverso.

luego imprimir los vectores (A) y (B).

desde ya muchas gracias.

{ Espero re refieras a esto }

program vector;
uses
crt;
var
i, t : integer;
vector_a : array[1..10] of integer;
vector_b : array[1..10] of integer;

procedure crea_vector_a;
begin
randomize;
for i := 1 to 10 do
vector_a[i] := Random(6);
end;

procedure copya_vector_a;
begin
i := 1;
t := 10;
repeat
vector_b[t] := vector_a[i];
i := i + 1;
t := t - 1;
until i > 10;
end;

procedure presenta_vectores_a_b;
begin
crea_vector_a;
copya_vector_a;
for t := 1 to 10 do
write(' ',vector_a[t]);
writeln;
writeln;
for i := 1 to 10 do
write(' ',vector_b[i]);
end;

begin
clrscr;
textcolor(15);
presenta_vectores_a_b;
writeln;
writeln;
writeln(' Pulsa Enter....');
readln;
end.