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

Задача 9 Урок 17:

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

program u17z9;
var a,b: string;
    i: integer;
begin
  writeln('vvedite stroku:');
  readln(a);
  for i:=1 to length(a) do
  begin
    if a[i]<>a[i-1] then
      b:=b+a[i];
  end;
  for i:=1 to length(b) do
    write (b[i]);
readln;
end.