помогите с задачей

[alex_fcsm]

uses crt;
const n=10;
var a,b:array[1..n] of real;
    flag:boolean;
    i,j,k,l:integer;

begin
clrscr;
for i:=1 to n do
 begin
  a[i]:=random(10)+1;
  write(a[i]:5:1);
 end;
writeln;
k:=0;
 for i:=1 to n do
  for j:=i+1 to n do
    if (a[i]=a[j]) then begin
                         flag:=false;
                         for l:=1 to k do
                          if b[l]=a[i] then flag:=true;
                        if not flag then begin
                                          inc(k);b[k]:=a[i];
                                         end;
                        end;
for i:=1 to k do
write(b[i]:5:1);
end.