Немного изменить программу в Delphi Console. (Массивы)

[QuadroX]

Условие задачи: Даны целые числа a1, a2, ..., an, среди которых могут быть повторяющиеся. Составить новый массив из чисел, которые входят в последовательность по одному разу.

Мое решение:

program Project1;

{$APPTYPE CONSOLE}

uses
  RusConsole, StopOnEnd;

const
  n = 10;
var
  i, j, k, t: Integer;
  Povtor: Boolean;
  a: array [1..n] of Integer;
  b: array [1..n] of Integer;
begin
  {Ввод исходного массива}
  for i := 1 to n do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  {Сравнение элементов исходного массива между собой}
  for i := 1 to n do
    begin
      t := a[i];
      Povtor := false;
      for j := 1 to n do
        if (a[j] = t) and (j <> i) then
          Povtor := true;
        if not Povtor then begin
          k := k + 1;
          b[k] := a[i];
        end;
    end;
  {Вывод результирующего массива b}
  writeln;
  for i := 1 to k do
    writeln('b[', i, ']=', b[i]);
end.

Преподаватель сказал, что решение правильно, но надо переделать, используя процедуры, функции и динамические массивы. Вот заготовка новой программы:

program peredelat;

{$APPTYPE CONSOLE}

uses
  RusConsole, StopOnEnd;

type
  TDynIntArray = array of Integer;

var

function ReadArray: TDynIntArray;
var I:Integer;
begin

end;


procedure WriteArray(IntArray: TDynIntArray);
var I:Integer;
begin

end;


function Solve(IntArray: TDynIntArray): TDynIntArray;
begin

end;


begin
  A:=ReadArray;
  B:=Solve(A);
  WriteArray(B);
end.

Задача в целом несложная и надеюсь вы мне поможете.

[russian-stalker]

SetLength, sizeof тебе в помощь