Символьный тип

Program stroka;
Uses srt;
var
st:string[10];
i,n,k:integer;
begin
Writeln('Введите размер строки');
Readln(n);
for i:=1 to n do
begin
Wrteln('введите строку');
Readln(st);
end;
k:=1;
if(st[1]=st[n]) then
for i:=1 to n do
begin
begin
while i<>' ' or  i<n do
i:=i+1;
end;
k:=k+1;
i:=i+1;
end;
Writeln('Количество слов=',k);
end.

Program stroka;
Uses srt;
var
st:string[100];
i,n,k:integer;
begin
clrscr;
Wrteln('введите строку');
Readln(st);
n:=length(st);
k:=1;
if(st[1]=st[n]) then
Begin
for i:=1 to n do
begin
if(st[i]=' ')then
k:=k+1;
end;
Writeln('Количество слов=',k);
end
else
Writeln('Первый и последний символы не совпадают');
end.

Uses crt;
var s   : string;
    i,k : integer;
    ch  : char;
begin
  ClrScr; {чистим экран}
  k := 0; {кол-во слов}
  i := 1; {индекс в строке}
  Writeln('введите строку');
  Readln(s);
  if s <> '' then
  repeat
    while s[i]=' ' do inc(i);   {пропускаем пробелы до слова}
    ch := s[i];                 {запоминаем первый символ слова}
    while s[i]<>' ' do inc(i);  {читываем слово}
    if ch = s[i-1] then Inc(k); {если равны, то увеличиваем счетчик}
  until i >= length(s);
  {выводим результат}
  Writeln('Количество слов ',k);
  ReadLn;
end.