Ввести текст телеграммы и стоимость одного слова. Опред. стоимость телеграммы. При вводе текста запятые обозначаются словом ЗПТ, точки — словом Т — Pascal(Паскаль)

Program string_17;

uses crt;

var
  a: string;
  i, s, c: longint;

begin
  clrscr;
  write('Введите текст ');
  readln(a);
  write('Стоимость одного слова ');
  readln(c);
  s := 0;
  repeat
    ;
    for i := 1 to length(a) do
      if (a[i] = ' ') or (a[i] + a[i + 1] + a[i + 2] = 'ЗПТ') then
        s := s + c;
  until a[i] = 'Т';
  s := s + c;
  write('стоимость телеграммы: ', s);
  readln;

end.