Одномерные массивы

[unbanned]

const
  n = 5;

var
  i, j, k, l: integer;
  f: boolean;
  x, m: array[1..n] of integer;

begin
  for i := 1 to n do read(x[i]);
  k := 0;
  for i := 1 to n do 
  begin
    f := false;
    for j := 1 to n do
      if (x[i] = x[j]) and (i <> j) then 
      begin
        f := true; 
        break; 
      end;
    if f then 
    begin
      inc(k); 
      m[k] := x[i]; 
    end;
  end;
  i := 1;
  while i <= k do
  begin
    j := i + 1;
    while j <= k do
    begin
      if m[j] = m[i] then
      begin
        for l := j to k - 1 do
          m[l] := m[l + 1];
        k := k - 1;
      end
      else j := j + 1;
    end;
    i := i + 1;
  end;   
  for i := 1 to k do
    writeln(m[i]);
end.

а вот так?