Solo quiero comentarte que encierres tu código con etiquetas para que se pueda leer correctamente, te invito a que leas nuestra
guia de estilo y la
otra guia de estilos.
Aquí pego como se vería si las usaras.
Código Delphi
[-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var
b,j,f1:integer;
begin
b:=StrToInt(Edit1.Text);
f1:=0;
if cont<5 then begin
for j:=0 to 4 do begin
if a[j]=b then f1:=1;
end;
if f1=0 then begin
a[i]:=b;
inc(cont);
inc(i);
x:=x + IntToStr(b)+' ';
end;
end;
if cont=5 then
Label1.Caption:=x;
Edit1.Text:='';
Edit1.SetFocus;
end;
Salud OS.