Delphi - lab4 (Vyntu)

program Lab4;
Uses Math;
var
  n, k, p, np, j, bn: integer;
  a, b: array[1..200] of real;
begin
  writeln('input n: ');
  readln(n);
  if (n < 2) or (n > 200) then
    writeln('Error: n not in [2, 200].')
  else
  begin
    writeln('input array: ');
    for k:=1 to n do
        readln(a[k]);

    bn := 0;
    for k:=1 to n do
    begin
       p := 0;
       for j:=k to n do
           if a[k] = a[j] then p:=p+1;
       for j:=1 to bn do
           if a[k] = a[j] then np:=p+1;
       if (p > 0) and (np = 0) then
         begin
           bn:=bn+1;
           b[bn]:=a[k];
         end;
    end;

    for k:=1 to bn do
    begin
       if k mod 5 = 0 then writeln
       else write(b[k]:0:2, ' ');
    end;
  end;

  readln;
end.