задачи на обработку строк (delphi)

[MONSTER152]

помогите пожалуйста написать программы на языке delphi к следующим задачам
1)Задана строка.Определить,содержится ли в строке цифры и знаки препинания.
2)В предложении возможны повторы слов.Удалить эти повторы.

[Hacker19_90]

1) Используй множества
как-то так

for i := 1 to length(s) do
    if s[i] in ['1'..'9'] then

для знаков препинания будет так

for i := 1 to length(s) do
    if s[i] in ['.', ',', '!', '?', итд и тп] then

2)Функции POS DELETE COPY

[MONSTER152]

мне нужен весь код программы начиная с var и т.д.

[MONSTER152]

задача2. в чем ошибка задачи

program progect;
Var C: String;
    I,Pb,j,f,n,k:integer;
    x: array [1..1000]  of string;
    s: array [1..1000]  of string;
Begin
 Write('Введите текст: ');
 ReadLn(C);
 C:=C+' '; n:=Length(C);
 K:=0;
 
 
 While pos(' ',C) <> 0 Do
 begin
 Pb := pos(' ',C);
 if Pb=pos(' ',C) then
 begin
 k:=k+1;
 i:=k;
 x[i]:=Copy(C,1,Pb-1);
 end;
 Delete(C,1,Pb);
 end;
 
 
 for j:=1 to k do
 begin
 i:=j;
 s[j]:=x[i];
 end;
 
 for j:=1 to k do
 begin
 for i:=1 to k do
 if s[j]=x[i] then f:=f+1;
 if f<2 then write(s[j],' ');
 f:=0;
 end;
readln;
 end.

[Базиля]

А ошибка то какого рода? Синтаксическая или по алгоритму?
Мы, извините, не телепаты.
Если ошибка по синтаксису, то укажите строчку с ошибкой.
И про оформление кода не забываем.

[MONSTER152]

по алгоритму

[Базиля]

Ну а подробнее?
Какая именно?
Каков вопрос, таков и ответ.
Ну неужели так сложно взять и все расписать?

[MONSTER152]

ошибка заключается в том что при вводе предложения все нормально он потом должен показать обработанное предложения а он за место него показывает непонятные символы

[Базиля]

Ну во первых, по коду, у тебя МНОГО лишних действий.
Во вторых, я конечно лучше бы это все по другому реализовал бы, но если все рассматривать в рамках только твоего приведенного выше алгоритма, то я предлагаю вот такой вариант:

for j:=1 to k-1 do
 begin
 for i:=j+1 to k do
 if s[j]=s[i] then
 s[i]:='';
 end;
for i:=1 to k do
write(s[i],' ');
 readln;
 end.

Я уж надеюсь ты разберешься какой именно кусок твоего кода нужно сменить на этот.