Задача на сравнение строк Опции

[Sheriff]

Заведите массив из десяти элементов символьного типа - Char. Введите его с клавиатуры. Далее - прочитайте строку и проверьте, возможно ли из символов, введенных в массив составить заданную строку.

Пример:
Массив: А,Р,У,П,Q,К,W,Ф,О,S.
Строка: УРОК
Ответ: возможно. (В веденном массиве существуют сиволы "У", "Р", "О", "К").
Пытался сделать, так ничего и не получилось, помогите пжл!!(выложу свой код, не смейтесь).

var
A,S:string;
M:array [1..10] of char;
i,j:byte;
begin
for i:=1 to 10 do
begin
write('Symbol',i,': ');
readln(M[i]);
end;
Write('Введите строку: ');
readln(s); 
for j:=1 to length(s) do
for i:=1 to 10 do
begin
if S[j]=m[i] then
A:=A+M[i];
end;
Write('A= ',A);
readln(a);
if A=S then
Write('Возможно');
end.

[Айра]

А какой-то из символов массива можно использовать несколько раз? Например, в массиве "М" и "А", а слово "мама"..

Смотри, если у тебя, наприме, массив будет "кккурокккк", то слово А получится равным "уроккккккк", и оно уже не будет совпадать с исходным.. Тебе нужно это обойти. Т.е. внутренний цикл при нахождении подходящего символа должен останавливаться. Подумай над этим))
И еще, зачем тебе readln(a) перед последним оператором сравнения?

Сообщение отредактировано: Айра - 21.08.2008 20:23