Поиск повторяющихся символов

[RNR]

Доброго времени суток всем.
будьте так добры проверьте код программы,подскажите что добавить.
программа должна выводить кол-во слов в которых есть повторяющиеся символы(причем не только когда например "програММа" 2 буквы М,а и для "КроКодил"),и можно ли из 2 и 3 слова составить 1.

var
  a,b , c:string[255];
  i,n, s:Integer;
  k:array [1..255] of Char;



procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 a:=Edit1.Text ;
 b:=Edit2.Text ;
 c:=Edit3.Text ;
 begin
 for i:=1 to Length (a) do
 if Pos(a[i],Copy(a,i,1))<>0 then
  memo1. Lines .Add('Слово с повторяющимся буквами ='+a) ;
 end;
  begin
 for i:=1 to Length (b) do
 if Pos(b[i],Copy(b,i,1))<>0 then
  memo1. Lines .Add('Ñëîâî ñ ïîâòîðþùèìåñÿ áóêâàìè='+b) ;
 end;
  begin
 for i:=1 to Length (c) do
 if Pos(c[i],Copy(c,i,1))<>0 then
  memo1. Lines .Add('Ñëîâî ñ ïîâòîðþùèìåñÿ áóêâàìè='+c) ;
 end;
 end;
procedure TForm1.CheckBox2Click(Sender: TObject);
 var m,j:integer;
     f1,f2,f3:boolean;

begin
  a:=Edit1.Text ;
  b:=Edit2.Text ;
  c:=Edit3.Text ;
 f1:=True;
  for m:=1 to length(a) do begin
  f2:=false;
  f3:=False;
   for j:=1 to Length(b) do
   if b[j]=a[m] then f2:=true;
    for j:=1 to Length(c) do
   if c[j]=a[m] then f3:=true;
   if (b[j]<>a[m])and (c[j]<>a[m]) then
      begin f1:=false;

 end;
 end;
 if f1 then memo1 .Lines.Add('слово '+a+' составить можно.')
    else memo1 .Lines.Add('слово '+a+' составить нельзя.');
end;

______
Заранее благодарна

[zvoronz]

Совсем не понял логику работы вашей проверки
Вот мой вариант решения

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Memo1: TMemo;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Array255Bolean = array [1..255] of Boolean;

var
  Form1: TForm1;
  a,b , c:string[255];
  i,n, s:Integer;
  k : Array255Bolean;

implementation

{$R *.dfm}

procedure Clean(var ar : Array255Bolean);
var
  i : Integer;
begin
  for i := 1 to 255 do
    ar[i] := False;
end;

function Check (c : Char; var ar : Array255Bolean) : Boolean;
var
  i : Integer;
begin
  Check := ar[ord(c)];
  ar[ord(c)] := True;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
a:=Edit1.Text ;
b:=Edit2.Text ;
c:=Edit3.Text ;
begin
  Clean(k);
  for i:=1 to Length (a) do
  if Check(a[i], k) then
  begin
    memo1. Lines .Add('Ñëîâî ñ ïîâòîðÿþùèìñÿ áóêâàìè = '+a);
    Break;
  end;
  Clean(k);
  for i:=1 to Length (b) do
  if Check(b[i], k) then
  begin
  memo1. Lines .Add('Ñëîâî ñ ïîâòîðÿþùèìñÿ áóêâàìè = '+b) ;
  Break;
  end;

  Clean(k);
  for i:=1 to Length (c) do
  if Check(c[i], k) then
  begin
  memo1. Lines .Add('Ñëîâî ñ ïîâòîðÿþùèìñÿ áóêâàìè = '+c) ;
  Break;
  end;
end;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var m,j:integer;
f1,f2,f3:boolean;
begin
a:=Edit1.Text ;
b:=Edit2.Text ;
c:=Edit3.Text ;
f1:=True;
for m:=1 to length(a) do begin
f2:=false;
f3:=False;
for j:=1 to Length(b) do
if b[j]=a[m] then f2:=true;
for j:=1 to Length(c) do
if c[j]=a[m] then f3:=true;
if (b[j]<>a[m])and (c[j]<>a[m]) then f1:=false;
end;
if f1 then memo1 .Lines.Add('ñëîâî '+a+' ñîñòàâèòü ìîæíî.')
else memo1 .Lines.Add('ñëîâî '+a+' ñîñòàâèòü íåëüçÿ.');
end;

end.

и вот проект в Delphi7, можете потестить ответить так я понял или нет.
DuplicateChars.zip