Дан массив слов. Из массива слов удалить слова, в которых нет повторяющихся букв.Напишите функцию Good (m : string) : boolean, которая возвращает «подходит» ли слово или нет, тип возвращаемого значения — boolean — Pascal(Паскаль)

uses crt;
function Good(m:string):boolean;
var i:byte;
begin
for i:=1 to length(m)-1 do
if pos(m[i],copy(m,i+1,255))>0 then
 begin
  Good:=false;{не подходит для удаления}
  break;
 end;
end;
var mas:array[1..100] of string;
    n,i,j:byte;
begin
clrscr;
repeat
write('Введите количество слов, не более 50 n=');
readln(n);
until n in [1..50];
writeln('Введите ',n,' слов:');
for i:=1 to n do
readln(mas[i]);
{удаляем из массива ненужные слова}
i:=1;
while i<=n do
 begin
  if Good(mas[i]) then
   begin
    for j:=i to n-1 do
    mas[j]:=mas[j+1];
    n:=n-1;
   end
  else i:=i+1;
  end;
writeln('Слова, содержащие повторяющиеся буквы:');
for i:=1 to n do
writeln(mas[i]);
readln
end.