Вводится последовательность чисел, 0- конец последовательности. Найти два наименьших числа.

Var a,b,c: int64;
    i,j,k,n,m,r,p,s: integer;
begin
  for i:=1 to 9 do    // буква х
  for j:=1 to 9 do    // буква г
  for k:=1 to 9 do    // буква т
  for n:=0 to 9 do    // буква о
  for m:=0 to 9 do    // буква с
  for r:=0 to 9 do    // буква у
  begin
    p:=k*k mod 10;
    a:=i*10000+p*1000+r*100+m*10+k;
    b:=j*100000+p*10000+n*1000+i*100+n*10+k;
    c:=p;
    for s:=1 to 10 do c:=c*10+p;
    if a*b=c then
    begin
      writeln('хруст = ',a);
      writeln('грохот = ',b);
      writeln(' = ',c);
    end;  
  end;
end.

хруст = 21649
грохот = 513239
= 11111111111

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.