Реализация RSA на pascal

program rsa;
uses crt;
var m,p,q,z,n,c,b : longint;
     i,i1,k,k1: integer;
begin
clrscr;
writeln (' 1 этап - поиск простых p и q');
readkey;
while k <> 2 do 
        begin 
        randomize;
        p:=random (35405-10000+1)+10000;
        if (p mod 2)=0 then continue
        else          begin 
                       k:=0
                       for i:=1 to p do
                       if (p mod i)= 0 then k:=k+1;
                       end;
        end;
writeln ('p -  ');
c:=99999;
b:=50000;
while k1 <> 2 do 
        begin 
        randomize;
        q:=random (c-b+1)+b;
        if (q mod 2)=0 then continue
        else          begin 
                       k1:=0
                       for i1:=1 to p do
                       if (q mod i1)= 0 then k1:=k1+1;
                       end;
        end;
writeln ('q - ',q);
readkey;
writeln ('2 этап вычесление n');
readkey;
n:=p*q;
writeln ('n - ',n);
readkey;
writeln ('3 этап поиск функции эйлера');
readkey;
m:=(p-1)*(q-1);
writeln('m - ',m);
readkey;