Символьный тип.Паскаль.

[Karabas]

Помогите пожалуйста с решением.
Дана непустая последовательность непустых слов из латинских букв,соседние слова отделены друг от друга запятой,за последним словом точка.Определить количество слов,которые начинаются и заканчиваются одной и той же буквой.(Слова из одной буквы считать удовлетворяющими условию).

program abc (input,output);
 var a,b,c:char;n:integer;
 begin
   n:=0;
   repeat
    read(a,b);
    c:=a;k:=1;
    repeat 
     a:=b; read(b) 
    until(b=',')or(b='.');
    if a=c then n:=n+1
   until b=('.');
  writeln(n)
  end.

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

[Karabas]

Нашёл ещё одну ошибку.Если текст это слово из одной буквы, то программа не завершает работу.Как это можно исправить?

[Ламер_001]

читать string и там в нем работать

[alex_fcsm]

uses crt;
var s:string;
    i,j,sum:integer;

begin
clrscr;
readln(s);
i:=1;j:=1;sum:=0;
repeat
if s[i]=',' then 
        begin
          if s[j]=s[i-1] then inc(sum);
          j:=I+1;
        end;
inc(i);
until (s[i]='.')or(i=length(s));
if s[j]=s[i-1] then inc(sum);
writeln(sum);
readln;
end.

[Karabas]

Вся соль в том что тип string использовать нельзя,packed array of char тоже.Можно использовать только операции с символами.Я согласен что со строкой легче,но препод требует без.

[Ламер_001]

вредный однако препод

var a, b, t:char;
    col:integer;

begin
  readln(t);
  a := t;
  b := t;
  col := 0;
  repeat
    readln(t);
    if  (t = ',') then
     begin
      if (a = b) then inc(col);
      readln(t);
      a := t;
     end;
    if (t <> '.') then
     b := t;
  until t = '.';
  if (a = b) then inc(col);
  writeln(col);
  readln; readln;
end.

[alex_fcsm]

Ввод немного сделал поудобнее

uses crt;
var ch,a,b:char;
    col:integer;
    flag:boolean;
begin
clrscr;
col:=0;
ch:=readkey;
write(ch);
a:=ch;b:=ch;
flag:=false;
repeat
ch:=readkey;
write(ch);
if flag then begin
              a:=ch;
              b:=ch;
              flag:=false;
             end;
if ch=',' then begin
               if a=b then inc(col);
               flag:=true;
               end
 else if ch<>'.' then b:=ch;
until ch='.';
if a=b then inc(col);
writeln;
writeln(col);
end.

[Karabas]

Спасибо всем за помощь.Всё работает.