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

uses crt;
function Good(m:string):boolean;
var i,j:byte;
begin
Good:=true;
for i:=1 to length(m)-1 do
for j:=i+1 to length(m) do
if m[i]=m[j] then
 begin
  Good:=false;
  break;
 end;
end;
var s:array[1..100] of string;
    n,i,k:integer;
begin
clrscr;
write('Количество слов n=');
readln(n);
writeln('Введите ',n,' слов:');
for i:=1 to n do
readln(s[i]);
clrscr;
writeln('Исходный масив слов:');
for i:=1 to n do
write(s[i],' ');
writeln;
writeln;
k:=0;
writeln('Слова, в которых есть повторяющиеся буквы:');
for i:=1 to n do
if not Good(s[i]) then
  begin
   k:=1;
   write(s[i],' ');
  end;
if k=0 then write('Слов с повторяющимися буквами нет!');
readln
end.