Pascal

Kā lai uzraksta pascalā uzdevumu kurš nosaka cik teikumā ir atstarpes? Man ir jāizmanto pos funkcija. Sākums ir šāds..

program teksta_analize_2;
var
 rst: word;
 t, ovpb: string;
 ast: longint;

begin
 writeln('Ievadiet vienu teikumu!');
 readln(t);

 rst:=length(t);
 writeln('Rakstzimju skaits teikuma ir: ',rst);

 ovpb:=t[7];
 writeln('Otrais vards sakas ar burtu: ',ovpb);

 writeln('Atstarpju skaits teikuma ir: ',ast);

 writeln('Piespiediet taustinu Enter!');
 readln;
end.