Задача на строки

[SlayerLiving]

Стоит задача написать программу которая будет обрабатывать введенную пользователем строку и заменять символ 't' на 2 символа 't-'. Пример строка 'nuttertools' после обработки должна выглядеть так - 'nut-t-ert-ools'


Вот мои наработки, возникают ошибки если в конце строки стоит больше 3 символом 't'.

-----------------------

uses crt;
var a,b,i,n,n2:integer;
    c:string;
Begin
 write('Введите строку: ');
 read(c);
 b:=length(c);
 For i:=1 to b do
 if (c[i]='t') and (c[i+1]<>'-') then
 begin
    insert('-',c,i+1);
    b:=length(c);
 end;
 For i:=1 to b do
 write(c[i]);
end.

--------------------------

please, help me!!!!!!!

[DRAgon™]

uses crt;
var a,b,i,n,n2:integer;
c:string;
Begin
write('Введите строку: ');
read(c);
b:=length(c);
For i:=1 to b do
if (c[i]='t') and (c[i+1]<>'-') then
begin
insert('-',c,i+1);
end;
For i:=1 to b do
write(c[i]);
end.

[SlayerLiving]

Спасибо, очень помог!

[Grag]

И чем же он тебе помог? Ошибка на ошибке...

uses crt;
var i:byte;
c:string;
Begin
ClrScr;
write('Input LINE: ');
read(c);
for i:=Length(c) downto 1 do
  if c[i]='t' then insert('-',c,i+1);
writeln;
writeln(c);
repeat
until KeyPressed
end.

[SlayerLiving]

На первый взгляд показалась рабочей, спасибо)