Turbo Pascal ( Очень нужна помощь....)

Вот программа на Делфи. Int64 нужно заменить на longint, Extended на real и проверить, работает ли на паскале )

Program Pr;

function GetMaxD( num : Int64 ): Int64;
var x : Extended;
begin
x := num;
if ( num > 100 )
then result := Trunc(SqrT(x)) + 1
else result := num div 2;
end;

function IsSimpleNum( num : Int64 ) : boolean;
var
j, maxD : Int64;
{ В ф-ю можно передавать: 4 .. MaxInt
отриц. числа не счит-ся
0 - не число
1 - ни простое, ни составное число
2, 3 - простые }
begin
Result := TRUE;
j := 1;
maxD := GetMaxD(num);
While j < maxD do
begin
Inc(j);
If num mod j = 0
then
begin
Result := FALSE;
BREAK;
end;
end;
end;

Var N : Int64;

begin
<ввод N>
if IsSimpleNum(N) then Write( 'Простое. ' );
ReadLn;
end.

Program kk;
Var
i, x : Integer;
Begin
WriteLn('Vvedite Chislo');
ReadLn(x);
For i := 2 to (x div 2) do
Begin
If (x mod i)=0 Then WriteLn('Chislo Ne Prostoe :-(')
Else WriteLn('Prostoe Chislo! :-)');
End;

Pascal непомню.
Алгоритм такой:
n - твое число
Solution:string
Solution:="Число простое";
for i=2 to n-1 do
begin
p:=n mod i;
if p = 0 then Solution:="Число не простое";
end
writeln(Solution)

за 30р напишем вам прогу =)
я в агенте если что - пишите

var
k,a,i:integer;
begin
readln(a);
for i:=1 to a do
if a mod i =0 then k:=k+1;
if k>2 then Writeln('число является составным') else
writeln('число является простым');
end.

максимальный делитель равен квадратному уорню из числа
a-число