Padėkit (Delphi)

Tai vat, gavau tokią užduotį:

Klaviatūra įvedami sveiki skaičiai A ir B(longint). Nustatykite kuris skaičius turi daugiau 5-kų.

Bandžiau atskirt skaičius bet nelabai išėjo, sugebėjau pavaizduot juos label'iuose bet nemoku padaryti kad tų penketukų ieškotų.

Padėkit jei galit.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
 private
 a,b,x,y : longint;
{ Private declarations }
 public
{ Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 a := strtoint(edit1.Text);
 b := strtoint(edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var S, S1:string;
  y,yp:longint;
  yra:boolean;
begin
 x := strtoint(edit1.Text);
yra:=true;
  while (x div 10 <>0)do
  begin
  y:=x mod 10;
  x:=x div 10;
  yp:=x mod 10;
  if((yp=y) and yra)
  then
	  yra:=true
  else
  yra:=false;
  yp:=y;
  S:=S+inttostr(x)+#13;
  S1:=S1+inttostr(y)+#13
  end;
  S1:=S1+intToStr(x)+#13;
  Label3.Caption:=''+S;
  Label4.Caption:=''+S1;
end;

end.

tingėjau delphi paleidinėt, bet algoritmas vieno skaičiaus 5tams suskaičiuoti daugmaž toks

sk := 0;
while (x > 0)do
  begin
  y:=x mod 10;
  if y = 5 then sk := sk+1;
  x:=x div 10;
  end

Labai dėkingas Gokiux'ui :D