Паскаль.Использование множественного типа

[**star**]

Помогите пожалуйста написать программу.
Дан массив из n слов пpоизвольной длины ,но не пpевышающих
80 символов. Элементами слов могут быть любые гpафические символы.
Все цифpы, сожеpжащиеся в самом длинном слове этого массива,
заменить на символ '*'.

[ОДИНОЧЕСТВО В СЕТИ]

begin
................
max:=length(s[1]);
im:=1;
for i:=2 to n do
if length(s[i])>max then begin
im:=i;
max:=length(s[i]);
end;
sub:=s[im];
for i = 1 to max do
if sub[i] in ['0'..'9'] then sub[i]:='*';
s[im]:=sub;
...............
end.

[**star**]

sub:=s[im]; - в этой строке выводит ошибку type mismatch

[ОДИНОЧЕСТВО В СЕТИ]

a s и sub какого у вас типа?

[**star**]

type T_str=array [1..10] of string[80];
T_set=set of char;
var s, sub :T_str; - вот так я их объявила

[vasek123]

Сообщение от **star**

type T_str=array [1..10] of string[80];
T_set=set of char;
var s, sub :T_str; - вот так я их объявила

По моему, тут как раз, и будет ошибка...

Может так:

type T_str=array[1..10]of string;
   T_set=set of char;
var s, sub: T_str;

Сообщение от **star**

Наверно...Какая только...

type T_str=array [1..10] of string[80];

Это для чего? Так массивы не объявляются...

[**star**]

Наверно...Какая только...

[ОДИНОЧЕСТВО В СЕТИ]

вот так должно быть

sub:string;
s:array[1..100] of string;

[**star**]

Спасибо,уже очень помогли,но дело в том,что задать переменные нужно именно типом Множества.

[ОДИНОЧЕСТВО В СЕТИ]

ну так ['0'..'9'] и затолкайте во множество