Задача 9 Урок 16

Задача 9 Урок 16

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

5533g
вернуть:

53g
для строки:

b5ghh55788oooggtttttt
вернуть:

b5gh578ogt

program lesson16_9;

function unique(s: string): string;
var
    a: string = '';
    i: integer;
begin
    for i := 1 to length(s) - 1 do
        if s[i] = s[i + 1] then
            continue
        else
            a := a + s[i];

	result := a + s[length(s)];
end;

var
    s: string;
begin
    write('inter string: ');
    readln(s);

    writeln(unique(s));

    readln();
end.