Поиск букв в тексте. Проблема с кодом.

[Rokko195]

Написал вот такой код. Проге надо определить количество пробелов.букв и букву с которой начинается второе слово в тексте. Проблема в том что вместо буквы она выводит цифру. Помогите разобраться.

program Text;

{$mode objfpc}{$H+}

uses
  crt,

  var rtg,att,i,v_pos:word;
 t,kbt: string;


begin
  ClrScr;


  writeln('Введите текст:');
   readln(t);
   rtg:=length(t);
  writeln('Текст содержит символов :',rtg);

   v_pos:=pos(' ' ,t ) ;
  writeln('Второе слово начинается с:',t [pos+1]);

   att:=0;
  for i:=1 to rtg do begin
  
  kbt:=copy(t,i,1);
  if (kbt=' ') then att:= att+1;
   end;
  writeln('Пробели между словам :',att);

  writeln('Press  Enter!');
  readln
end.

[Poma][a]

t [pos+1];

Тут ошибка.
t [v_pos + 2]
Дальше не смотрел

[Rokko195]

Сообщение от Poma][a

Тут ошибка.
t [v_pos + 2]
Дальше не смотрел

Пробовал и так. На [v_pos+2] компилятор ругается. У меня Лазарь. Помогите ребята,нада зачет здавать.

[Poma][a]

program Text;


uses
  crt;

var rtg,att,i,v_pos:word;
 t,kbt: string;


begin
  ClrScr;


  writeln('??????? ?????:');
   readln(t);
   rtg:=length(t);
  writeln('????? ???????? ???????? :',rtg);

   v_pos:=pos(' ' ,t ) ;
  writeln('?????? ????? ?????????? ?:',t [v_pos+2]);

   att:=0;
  for i:=1 to rtg do begin

  kbt:=copy(t,i,1);
  if (kbt=' ') then att:= att+1;
   end;
  writeln('??????? ????? ?????? :',att);

  writeln('Press  Enter!');
  readln
end.