Удалить повторы в строке, Легкая задачка на строки Опции

[el'va]

Добрый вечер.

Надо не используя стандартных методов обработки строк, убрать из строки повторяющиеся символы(оставить по одному вхождению), можно новую строку записывать в новую переменную.

Помогите пожалуйста в понедельник уже надо сдать. На форуме есть примеры только с использованием стандартных методов паскаля, а надо без них(
Заранее спасибо.

[samec]

вот, может быть не самый оптимальный вариант, но работающий:

program lab;

var
 s:string;
 i,j,k,kol:integer;
begin
 readln(s);
 kol:=1;
 while(s[kol]<>#0) do inc(kol);
 dec(kol);
 i:=1;
 while (i<=kol) do
  begin
   j:=i+1;
   while (j <= kol) do
    if s[i]=s[j] then
      begin
       for k:=j to kol do
         s[k]:=s[k+1];
       dec(kol);
      end
    else
     inc(j);
  inc(i);
  end;
 writeln(s);
 readln;
end.