Перевод с паскаля на с#

Program schet;
var l,f,i,r:integer;
begin
f:=0; 
for i:=100 to 999 do
begin
r:=2;
for l:=2 to i-1 do
begin
if i mod l <> 0 then
r:=r+1;
if r=i then
f:=f+1; 
end;
end;
write (f);
end.

PROGRAM JSPICOK;
USES CRT,SPICOK;
VAR
M1,N:INTEGER;
{                  SPICKI                   }
{-------------------------------------------}
 BEGIN
    REPEAT
     CLRSCR;
    WRITELN('   MENU');
    WRITELN('1 Cozdat(N)');
    WRITELN('2 DobNach(N)');
    WRITELN('3 DobKON(N)');
    WRITELN('4 BIBOD(N:INTEGER;list:A)');
    WRITELN('5 DELETE(PList)');
    WRITELN('6 EXIT');
    WRITELN;
    READLN(M1);
     CASE M1 OF
1:  Cozdat(N);
2:  DobNach(N);
3:  DobKON(N);
4:  BIBOD(N,Mlist);
5:  DELETE(PList);
6:  Exit;
     END;
 UNTIL M1>=8;
  READKEY;
 END.

UNIT SPICOK;
INTERFACE
USES CRT;
TYPE
  A=RECORD
    X:Integer;
    Y:REAL;
    Z:BOOLEAN;
  END;
  PtrList=^Tlist;
  Tlist=record
    inf:A;
    next:PtrList;
  END;
   Var
      P1,P2,PList:PtrList;
      Mlist:A;
      I,N:INTEGER;
   Procedure TABEL(N:INTEGER);
   Procedure Cozdat(VAR N:INTEGER);
   Procedure DobNach(VAR N:INTEGER);
   Procedure DobKON(VAR N:INTEGER);
   Procedure BIBOD(VAR N:INTEGER;Mlist:A);
   Procedure Delete(Var PList:PtrList);
{                       SPICKI               }
IMPLEMENTATION
{-----------------------------------------}
   Procedure TABEL(N:INTEGER);
BEGIN
   CLRSCR;
   WRITELN(' ЪДДДДДДДДДДДДВДДДДДДДДДДДВДДДДДДДДДДДДДї');
   WRITELN(' і INTEGER    і   REAL    і   BOOLEAN   і');
   WRITELN(' і    X       і   Y       і  Z(T ILI F) і');
   WRITELN(' ГДДДДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
   FOR I:=1 TO N DO
     BEGIN
   WRITELN(' і            і           і             і');
   IF I=N THEN
   WRITELN(' АДДДДДДДДДДДДБДДДДДДДДДДДБДДДДДДДДДДДДДЩ')
   ELSE
   WRITELN(' ГДДДДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
    END;
END;
{-------------------------------------------------------}
 Procedure Cozdat(VAR N:INTEGER);
 LABEL MM;
  Var J:CHAR;
 BEGIN
   N:=1;
  TABEL(N);
  GOTOXY(5,5);
   READ(Mlist.X);
  GOTOXY(18,5);
   READ(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(p1);
   P1^.inf:=Mlist;
   P1^.next:=NIL;
   P2:=P1;
{   Plist:=P1;}
 END;
{-------------------------------------------}
Procedure DobKON(VAR N:INTEGER);
LABEL MM;
VAR J:CHAR;
  BEGIN
   TABEL(1);
   GOTOXY(5,5);
   READLN(Mlist.X);
   GOTOXY(18,5);
   READLN(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(Plist);
   Plist^.inf:=Mlist;
   Plist^.next:=NIL;
   P2^.next:=PLIST;
   p2:=PLIST;
   N:=N+1;
 END;
{------------------------------------}
   Procedure BIBOD(VAR N:INTEGER;Mlist:A);
{ BIBOD ZAPICI }
 Var I:INTEGER;
  BEGIN
   CLRSCR;
  TABEL(N);
   PLIST:=P1;
    I:=1;
   WHILE PLIST<>NIL DO
 BEGIN
   Mlist:=PLIST^.inf;
  GOTOXY(5,5+2*(I-1));
    WRITELN(Mlist.X:7);
  GOTOXY(18,5+2*(I-1));
   WRITELN(Mlist.Y:7:4);
  GOTOXY(31,5+2*(I-1));
   WRITELN(Mlist.Z);
   PLIST:=PLIST^.next;
   I:=I+1;
 END;
    READKEY;
    END;
 
{-------------------------------------------------------}
 Procedure DobNach(VAR N:INTEGER);
 LABEL MM;
Var J:CHAR;
 BEGIN
   TABEL(1);
   GOTOXY(5,5);
   READLN(Mlist.X);
   GOTOXY(18,5);
   READLN(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(Plist);
   Plist^.inf:=Mlist;
   Plist^.next:=p1;
   p1:=Plist;
   N:=N+1;
   readkey;
  END;
{-------------------------------------------}
 Procedure DELETE(Var PList:ptrlist);
 BEGIN
 clrscr;
  WHILE P1<>NIL DO
  BEGIN
    PLIST:=p1^.next;
    dispose(p1);
    P1:=PLIST;
  END;
  WRITELN('CPICOK UDALEN');
  PLIST:=NIL;
  P1:=PLIST;
  P2:=PLIST;
  readkey;
  END;
  END.

const n=3; m=2;
Type Mas=array [1..n] of array [1..m] of char;
 
procedure Proverka(var a: mas; s: string);
var i, j : integer;
    h: integer;
    sAllLetters : string;
    Mozno : boolean;
begin
  sAllLetters := '';
  for i := 1 to n do
    for j := 1 to m do
       sAllLetters := sAllLetters + a[i,j];
 
  Mozno := true;
  for h := 1 to length(s) do
  begin
     if Pos(s[h], sAllLetters)>0 then Delete( sAllLetters, Pos(s[h], sAllLetters), 1 )
     else begin
        Mozno := false;
        Break;
     end;
  end;
 
  if Mozno then Writeln(Kod('Можно')) else Writeln(Kod('Нельзя'));
end;

uses crt;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10
 end;
sum:=s
end;
var n,k:integer;
begin
write('n=');
read(n);
k:=0;
while n>0 do
 begin
  n:=n-sum(n);
  k:=k+1
 end;
write('k=',k);
end.