Altro [Pascal]Lenght e Copy... Problema!

[Get Jinxed￾™]

Allora ho un problemino con il Pascal (si un linguaggio inutile ma che devo fare D: )
Se ho un vettore di frasi come faccio a prendere solo ed esclusivamente la seconda parola (evitando di controllare che siano immesse due o più parole nella frase).
Ho pensato di andare così:
B:=0
Z:=B+1

A:Lenght(Frasi)

C:copy(Frasi,B,1)

D:copy(F,Z,1)

e ora faccio il controllo se C:=' ' e se Z:=' ' (aumentando Z:=Z+1 se non lo è)
e se lo è mettevo le lettere che sono compresi fra i due spazi sull'altro vettore Seconda.

Il problema è che non so come si mettono dentro al vettore Seconda le lettere che sono comprese. Helperino.

 

[St3ve]

Non conosco il pascal, ma la logica è semplice, quindi toh:

var
   frase : String;
   i     : Integer;
   first : Integer;

begin
   frase := 'ciccio pasticcio bla bla bla';

   // cerco il primo spazio (fine prima parola)
   for i := 1 to length(frase) do
      if frase[i] = ' ' then
         break;

   // elimino tutti gli spazi (inizio seconda parola)
   while frase[i] = ' ' do
      i := i + 1;

   first := i;

   // cerco il secondo spazio (fine seconda parola)
   for i := first + 1 to length(frase) do
      if frase[i] = ' ' then
         break;

   writeln(copy(frase, first, i-first));
end.

Lascio a te l'uso di questo codice in un array di stringhe (cambia pochissimo).

 

[Get Jinxed￾™]

GRAZIE MILLE. +1 REP E LIKE. Lascio aperto se ho altri dubbi ok?
Edit: wtf non c'è più il rep?