Сделать программу под PascalABC.NET

program ElGamal;
Var p,g,a,k,k1,y,key:LongInt;
    y1,y2:Char;
    i:Word;
    F_in :Text;
    F_out :Text;
    c:Char;
    o:char;
Function NOD( M,N:LongInt ):LongInt;
Begin
  while( M<>0) and (N<>0 ) do
   Begin
     if( M>N )
     Then M:=M mod N
     Else N:=N mod M;
   End;
  if(N<>0) then NOD:=N
  else NOD:=M;
End;
Function IsSimple( p:LongInt ): Boolean;
Var k,m:LongInt;
    l:Extended;
Begin
  l:=sqrt( p );
  k:=1;
  m:=1;
  while( (k<l)and(m<>0) ) do
   begin
    inc(k);
    m:=p mod k;
   end;
  if( m<>0 ) Then IsSimple:=true
  Else IsSimple:=False;
End;
 
Function SimpleNum( var p:longint ): LongInt;
Begin
  while( not IsSimple( p ) ) do inc(p);
  SimpleNum:=p;
End;
 
Function st( g,k:LongInt ):LongInt;
Var Pr:LongInt;
Begin
  Pr:=1;
  for i:=1 to k do
    Pr:=Pr*g;
  st:=Pr;
End;
 
Begin
{  Writeln( 'Введите простое число p' );
  readln( P );
  Writeln( 'Введите целое число g' );
  Readln(g);
  Writeln( 'Введите секретный ключ:' );
  Readln(a);}
  p:=11;
  g:=9;
  a:=3;
  Writeln( 'p=', SimpleNum(p) );
  y:=st(g,a) mod p;
  writeln('Открытый ключ - y=',y);
  Assign( F_in, 'in.dat' );
  Reset( F_in );
  Assign( F_out, 'out.dat' );
  Rewrite( F_out );
  randomize;
  While( not eof( F_in )) do
    Begin
      k1:=random(p-2)+1;
      { Поиск взаимно простого числа с числом p-1 во всех числах, бОльших k }
      k:=k1;
      While( (NOD( k, p-1 )<>1) and (k<p-1) or (k=31)) do inc( k );
      if( k=1 )
      Then
       Begin
      { Поиск взаимно простого числа с числом p-1 во всех числах, меньших k }
        k:=k1;
        While( NOD( k, p-1 )<>1  ) do dec( k );
        if( k=p-1 )
        Then
          Begin
            Writeln( 'Ошибка!!! Нельзя найти подходящее k' );
            halt;
          End;
        End;
      y1:=char(st(g,k) mod p);
      Write( F_out, y1 );
      key:=st(y,k) mod p;
      Read( F_in, c );
      y2:=char(byte(c) xor key);
      Write( F_out, y2 );
    End;
  Close( F_in );
  Close( F_out );
  { Дешифровка }
  Assign( F_in, 'in2.dat' );
  Rewrite( F_in );
  Assign( F_out, 'out.dat' );
  Reset( F_out );
  While( not eof( F_out )) do
    Begin
      Read( F_out, y1 );
      Read( F_out, y2 );
      c:=char(((st( LongInt(y1),a ) mod p) xor byte(y2)));
      Write( F_in, c );
    End;
  Close( F_out );
  Close( F_in );
End.