Переписать программу с Pascal

program Project_11540_04;
const n1=100000;
     type aa=array[1..n1]of byte;
var
  mas:   array [1..n1] of ^aa;
  visited, kol_el: array [1..100000] of integer;
  i,j, n, m,kol_sv,x,y:integer;
 
procedure DFS( v:integer); 
var Stek: array [1..100001] of integer;   
Uk: integer;                             
t: integer; f: boolean;
begin
fillchar(stek,sizeof(stek),0);Uk:=0;
inc(Uk); Stek[Uk]:=v;
Visited[v]:=kol_sv;
while Uk<>0 do         
begin
v:=Stek[Uk];
t:=0; f:=false;
repeat
if (mas[v]^[t]=1) and (Visited[t]=0) then
f:= true
else inc(t);
until f or (t>n);
if f then
begin
inc(Uk);
Stek[Uk]:=t;
Visited[t]:=kol_sv;
end
else dec(Uk);           
end;
end; 
 
  begin
  assign (input, 'input.txt'); reset (input);
  assign (output, 'output.txt') ; rewrite (output);
  readln (n, m);
 
  if m =0 then  begin
  writeln (n);
  for i:= 1 to n do
    begin
      writeln ('1'); writeln (i)
    end;
  exit
  end;
  for i:= 1 to n do
  new (mas[i]);
  {fillchar(mas,sizeof(mas),0);   }
  fillchar(visited,sizeof(visited),0);
  fillchar(kol_el,sizeof(kol_el),0);
  kol_sv:=0;
  for i:=1 to m do
   begin
    read (x,y);
    mas[x]^[y]:=1;
    mas[y]^[x]:=1
   end;
  for i:=1 to n do
    if visited[i]=0 then begin
      inc(kol_sv);
      dfs (i)
     end;
writeln (kol_sv);
for i:=1 to kol_sv do
for j:=1 to n   do
if visited[j]=i then kol_el[i]:=kol_el[i]+1;
 
for i:=1 to kol_sv do
begin
writeln(kol_el[i]);
for j:=1 to n do
if visited[j]=i then write(j, ' ');
writeln;
end;  
end.