Помогите Delphi (На множества задача)

[Глеб Иванов]

Заданы два символьных массива с малых латинских букв и цифр S(n),n<=600 и C(m), m<=500. Разработать программу, которая находит и печатает: буквы, которые есть в обоих массивах, буквы, которых нет в обоих массивах и цифры, которые есть в первом и втором массивах отдельно.

Буду очень благодарен за помощь ! Спасибо !

[Vanta11a]

Что сам сделал? Ничего? Тогда "помощь" будет за деньги.

[Глеб Иванов]

uses crt;
var a,b:string;  //строки, или массивы символов
    m1,m2,m:set of char;//множества
    n,i,k,j:byte;
begin
clrscr;
n:=0;
repeat  //вводим строки и проверяем их на соответствие условию
writeln('a:');
readln(a);
for i:=1 to length(a)do
if not(a[i]in['a'..'z','0'..'9']) then 
  begin
    n:=1;
    break;
  end;
if k=1 then writeln('В массиве А недопустимые символы. Повторите ввод.');
until n=0;
repeat
writeln('b:');
readln(b);
for i:=1 to length(b)do
if not(b[i]in['a'..'z','0'..'9'] )then
  begin
    n:=1;
    break;
  end;
if k=1 then writeln('В массиве B недопустимые символы. Повторите ввод.');
until n=0;
m1:=[];  //пустое множество
for i:=48 to 122 do  //диапазон, в который попадают коды цифр(48-57) и маленькие латинские буквы(97-122)
for j:=1 to length(a)do
if chr(i) = a[j] then m1:=m1+[a[j]]; //делаем множество символов строки А
m2:=[];
for i:=48 to 122 do
for j:=1 to length(b)do
if chr(i) = b[j] then m2:=m2+[b[j]]; //также строки В
writeln('Буквы, которые есть в обоих массивах:');
m:=m1*m2;  //пересечение множеств
for i:=97 to 122 do
if chr(i) in m then write(chr(i),' '); 
writeln;
writeln('Буквы, которых нет в обоих массивах:');
m:=m1+m2;  //объединение множеств
for i:=97 to 122 do
if not(chr(i) in m) then write(chr(i),' ');
writeln;
writeln('Цифры, которые есть только в массиве А:');
m:=m1-m2;  //вычитаем из множества цифр строки А множество цифр строки В
for i:=48 to 57 do
if chr(i) in m then write(chr(i),' ');
writeln;
writeln('Цифры, которые есть только в массиве B:');
m:=m2-m1;  //наоборот
for i:=48 to 57 do
if chr(i) in m then write(chr(i),' ');
readln
end.

[Глеб Иванов]

Вот консоль... нужно помочь исправить + на форму

[Vanta11a]

Кидаешь на форму 2 edit`a, 2 textbox`а и кнопку, считываешь по нажатию кнопки инфу из edit`ов, что-то в духе

my_string := edit1.Text

потом добавляешь нужное в нужный текстбокс

textBox.append(my_text)