Объектно-ориентированное программирование

[Solnze2]

Народ помагите дописать задачку.Нужно добавить сюда слияния двух массивов с исключением повторяющихся элементов.

uses
  crt;

  const n=20;
type
 TMass=object
  private
   Values:Array[1..n] of string;
  public
   {Предусмотреть возможность обращения к отдельным строкам массива по индексам}
   Procedure SetValue(Index:integer;AValue:String);
   Function GetValue(Index:Integer):string;
   {выполнения операций поэлементного сцепления двух массивов с образованием нового массива}
   procedure ConcatMass(One,Duo:TMass);
   Constructor Create;
   {печать (вывод на экран) элементов массива и всего массива. }
   procedure Print(index:integer);
   procedure PrintAll;
 end;
{ TMass }

Constructor TMass.Create;
begin

end;

procedure TMass.PrintAll;
var i:integer;
begin
 for i:=1 to n do
   if Values[i]<>'' then write(values[i],' ');
 writeln;
end;

procedure TMass.Print(index:integer);
var i:integer;
begin
  if (index>0)and(index<=n) then Write(Values[index]) else begin
   Write('Выход за диапазон');
  end;
end;

procedure TMass.ConcatMass(One, Duo: TMass);
var i:integer;
begin
 for i:=1 to n do
  SetValue(i,one.GetValue(i)+duo.GetValue(i));
end;

function TMass.GetValue(Index: Integer): string;
begin
  {контроль выхода за пределы индексов}
  if (index>0)and(index<=n) then GetValue:=Values[index] else begin
   GetValue:='';Write('Выход за диапазон');
  end;
end;

procedure TMass.SetValue(Index: integer; AValue: String);
begin
  if (index>0)and(index<=n) then Values[index]:=AValue else begin
   Write('Выход за диапазон');
  end;
end;

var q,w,e:TMass;
begin

  q.SetValue(1,'Hello');
  w.SetValue(2,' my');
  q.SetValue(3,'world');
  e.ConcatMass(q,w);
    q.PrintAll;
    e.PrintAll;
    w.PrintAll;
  readln;
end.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=103786
Класс!!!
Stilet написал так ещё и дописать надо.Мне нравится.

[Solnze2]

Представь себе надо!

[profi]

Во халявщики пошли .

[Stilet]

Кросспост. Закрыто.