Как сделать чтобы переменная с стала интежер и в форме результата выбивало целое число

[Владан]

Определить, какой процент повторов случайных чисел (общие_количество повторов / общие количество_чисел * 100) будет встречаться при использовании стандартного Random () Паскаля. Количество чисел, которые генерируются и диапазон для генерации вводить через форму.

у меня переменная с (процент повторов заданого числа) получается дробной исходя из формулы c:=m/n*100;Как сделать чтобы переменная с стала интежер и в форме результата выбивало целое число?

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

type
  TMyForm = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyForm: TMyForm;
  c,n,d,i,j,m,k:integer;


  Edit3:string;
  A:array[1..1000] of integer;
  B:array[1..100] of integer;

implementation

{$R *.dfm}

procedure TMyForm.Button1Click(Sender: TObject);
begin
n:=strtoint(Edit1.Text);//преобразовываем текст в число
end;

procedure TMyForm.Button2Click(Sender: TObject);
begin
d:=strtoint(Edit2.Text);
end;

procedure TMyForm.Button3Click(Sender: TObject);
var
ii:integer;
jj:integer;
begin
for ii:=1 to n do
A[ii]:=Random(d);
for jj:=i+1 to n do
begin
if A[i]=A[j] then k:=k+1;
end;
if k<>1 then B[i]:=k;k:=1;
for ii:=1 to n do
if B[i]<>0 then m:=m+1;
c:=m/n*100;
Edit3.Text:=InttoStr(c);//преобразовуем действительное число в рядок
end;
end.

[Error] Unit1.pas(61): Incompatible types: 'Integer' and 'Extended'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Stilet]

c:=m/n*100;

Либо объявляй "c" как вещественное, либо дели используя div

[Владан]

Сообщение от Stilet

Либо объявляй "c" как вещественное, либо дели используя div

в результате получается 100 повторов , всегда ...

[Владан]

Сообщение от Stilet

Либо объявляй "c" как вещественное, либо дели используя div

не знаешь как вписать что бы переменная с при делении имела два числа после запятой (пр.:0,29 ) и тогда при умножении на 100 будет выбивать целое число

[BDA]

c:=100*m div n;
либо c - real, а потом inttostr(round(c));