Дана строковая величина вывести ** экран второе слово.Информатика Turbo Pascal

Question

Дана строковая величина вывести на экран второе слово.Информатика Turbo Pascal

Answer 1

 var a:string;

for i:=1 to length(a) do

g:=i;

if a[i]=' ' then begin

for g to length(a)

writeln(a[g]);

end;