Помогите пожалуйста надо срочно!дельфи

[Алена]

После ввода символьной строки сократить в ней все подряд повторяющиеся символы до одного(пример маммма ррарра-мама рара)

[puporev]

Примерно так:

for i:=0 to length(s) do
if s[i]=s[i+1] then delete(s,i,1);

[north]

program t1;
var s:string;
l,i:longint;
begin
read(s);
l:=length(s);
i:=0;
while i<=l do begin
    if s[i+1] = s[i] then begin
        delete(s,i+1,1) ;
        l:=l-1 
        end 
    else inc(i);
    end;
writeln(s);
end.

Код заключаем в тэги. Читаем правила. SupVis.

[Alex21]

2 puporev: тогда вот так:

for i:=length(s) downto 0 do
if s[i]=s[i-1] then delete(s,i,1);

[Карась]

program Project1;

{$APPTYPE CONSOLE}
var mes, mesK: string;
    i: integer;

begin
Readln (mes);

    for i := 1 to length(mes) do
     begin
          if mes[i] = mes[i+1] then
           mesK := ''
          Else
           mesK := mes[i];
    Write (mesk);
    End;
Readln;
end.

Как всегда консоль... Ну и ехешник...

[north]

Сообщение от Карась

program Project1;
var mes, mesK: string;
i: integer;

begin
Readln (mes);

for i := 1 to length(mes) do
begin
if mes[i] = mes[i+1] then
mesK := ''
Else
mesK := mes[i];
Write (mesk);
End;
Readln;
end.

Убрал "{$APPTYPE CONSOLE}", вот тебе и не консоль

[Алена]

Все работает North тебе очень благодарна спасибо!!!!!!
Давай обменяемся асей я буду спрашивать советы по прогам