Исправить ошибку Delphi

[Kati]

программка для вычисления сочетнаия из n элементов по k

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function C(n,k:integer):integer;
begin
if (k=1) or (k=n)then C:=n-k+1
  else C:=C(n-1,k)+C(n-1,k-1);
   end;
procedure TForm1.Button1Click(Sender: TObject);
var 
n1,k1,Cnk:integer;
begin
  n1:= Strtoint(Edit1.text);
  k1:= Strtoint(Edit2.text);
   Cnk:=C(n1,k1);
  label9.Caption:=inttostr(Cnk);

end;

end.

Выдает ошибку.Непонимаю почему.
Я только учусь!

[Z1000000]

Да вроде все нормально. если k больше n не вводить.

Че за ошибка?
На каких данных?

[Serge_Bliznykov]

1) не забываем использовать тег [СODE] .. [/CODE] (кнопка с решёточкой #)

2) какая ошибка выдаётся и в каком случае?

3) я бы рекомендовал заменить тип integer на int64
и обязательно проверять перед вызовом Cnk := C(n1,k1); что N1 Больше или равно K1 - иначе процедура рекурсивно уходит в бесконечный цикл!
и последнее.
количество сочетаний можеть быть ОЧЕНЬ большим...
например, вот отсюда взял - число сочетаний 20 из 80 = 3 535 316 142 212 174 320

[Kati]

Спасибо! изменила integer и n1>=k1 и все заработало!!!!