составить слово из букв программа

Ответ от Ra[гуру]
var w1, w2: string; c1, c2: integer; r: boolean; begin write(\'первое слово? \'); readln(w1); write(\'второе слово? \'); readln(w2); for c1 := 1 to length(w2) do begin r := false; for c2 := 1 to length(w2) do if w1[c1] = w2[c2] then r := true; if not r then break; end; writeln(r); end. если можно напечатает true, иначе false