Non conosco il pascal, ma la logica è semplice, quindi toh:
Lascio a te l'uso di questo codice in un array di stringhe (cambia pochissimo).
Codice:
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).