Удаление повторяющихся элементов массива Опции

[redeezko]

Помогите со следующей задачей: в заданном массиве из n литер удалить все повторяющиеся литеры.
Вот что получилось у меня:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=10;
type u=array[1..n] of char;
var x:u;
    i,j,l,k:integer;
  begin
  writeln('vvedite nabor liter');
  for i:=1 to n do
      read(x[i]);
  i:=2;
  l:=n;
  while i<=l do
    begin
      for j:=1 to i-1 do
          if x[i]=x[j] then
              begin
                l:=l-1;
                for k:=i to n do
                    x[k]:=x[k+1];
                i:=i-1;
              end;
          inc(i);
    end;
  for i:=1 to l do write(x[i]);
  readln;
  readln;
end.

Но она почему то не работает. Вернее не всегда работает. Например если ввести aasdfsyajy то
программа оставит asdjy. Очень прощу помощи.
P.S. Учусь на 1 курсе, так что не знаю что такое процедуры и функции . Да и проходим мы сейчас массивы, так что задачу необходимо сделать наподобие как делаю я. Заранее спасибо

Сообщение отредактировано: redeezko - 8.12.2009 23:26

[volvo]

Но она почему то не работает. Вернее не всегда работает.

Потому что вот этот цикл:

      for j:=1 to i-1 do
          if x[i]=x[j] then
              begin
                l:=l-1;
                for k:=i to n do { <--- Вот этот самый }
                    x[k]:=x[k+1];
                i:=i-1;
              end;

не должен выполняться дважды при одном и том же j ни в коем случае. А у тебя - выполняется: несмотря на то, что ты уменьшил значение i, Паскаль работает со старым, неизмененным значением (это особенности цикла For в Паскале, начало и конец цикла вычисляются один раз, перед выполнением, а не на каждой итерации), что приводит к удалению лишнего символа.

Будем переписывать, или исправлять?

P.S. Хм... Опоздал Но объяснение, почему не работало - не помешает все же, я думаю...