Ошибка в коде. Типы данных

[Tony Hudson]

Добрый вечер, уважаемые форумчане. Не могу исправить ошибку, подскажите в каких типах данных все подсчитать?

var
  Form1: TForm1;
  q,h,a,p,k,g,s,l,z,u,x,y,gamma:integer;

implementation

{$R *.dfm}
//_________________________________________________________________
function prost(x:integer):boolean;
var
i:integer;
begin
result:=false;
for I:=2 to Round(sqrt(x)) do
if x mod i<>0 then result:=True
else
begin
result:=False;
break;
end;
end;

//_________________________________________________________________
procedure stepen(a,u,p:integer; var z:integer);
var
i:integer;
begin
z:=1;
for i:=1 to U do // z=a^U mod p
z:=a*z mod p;
end;

//_________________________________________________________________
procedure pokazatel(a,p:integer; var gamma:integer);
var
i:integer;
begin
gamma:=0;
repeat
begin
gamma:=gamma+1;
if prost(gamma) then continue;
stepen(a,gamma,p,i);
end
until i=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(Edit1.Text);
p:=strtoint(Edit2.Text);
u:=strtoint(Edit3.Text);
x:=strtoint(Edit4.Text);
if prost(a) then Showmessage('Простое ') else Showmessage('Составное');
stepen(a,u,p,z);
stepen(a,x,p,y);
pokazatel(a,p,gamma);
Edit5.Text:='y='+IntTostr(y);
Edit6.Text:='Z='+IntTostr(z);
Edit7.Text:='Y=' + Inttostr(gamma);
k:=(U+Z)/(x+1) mod  gamma;
end;
end.

[min@y™]

оператор mod будет работать, если слева и справа от него будут целые ппременные, выражения или константы, причём ненулевые.
Как звучит оригинал задания?

[Аватар]

int/int -> действительный тип, а к нему mod не применим

[Tony Hudson]

Сообщение от min@y™

оператор mod будет работать, если слева и справа от него будут целые ппременные, выражения или константы, причём ненулевые.
Как звучит оригинал задания?

Нужно подсчитать по формулам, чтобы проверочное уравнение было верным