Перевести с паскаля

CONST MAX_N = 100;
Type TNode = ^Node;  
     Node = record
        next : TNode;
        info : integer;
     end; 
Var i , j , x , y , n , m : integer;
    a : array[1..MAX_N] of TNode;
    u : TNode;
    yn:char;
procedure addEdge(x , y : integer);
Var u : TNode;
{$CODEPAGE CP866} //русский язык
Begin
    new(u);
    u^.next := a[x];
    u^.info := y;
    a[x] := u;
End;
Begin
    write('Введите колличество вершин: ');
    readln(n);
    write('Введите колличество ребер: ');
    readln(m);
    for i := 1 to m do begin
        writeln('Введите ребро: ',i,'; ');
        write('     Начало = '); readln(x);
        write('     Конец = '); readln(y);
        addEdge(x , y); 
    end;
    writeln();writeln;
    //Выводим список всех вершин и ребер
    writeln('Выводим список всех вершин: ');
    for i := 1 to n do begin
        write('Вершина: ' , i, '; Концы: ');
        u := a[i];
        while u <> Nil do begin
            write(u^.info , '; ');
            u := u^.next;
        end;
        writeln;    
    end;
    writeln;
    //Выводим список вершин с началом в вершинах, кратных 2, и концом в вершинах, кратных 5
    writeln('Выводим список вершин с началом в вершинах, кратных 2, и концом в вершинах, кратных 5');
    for i := 1 to n do begin
        if i mod 2 = 0 then 
        begin
            //write('Вершина ' , i, ' = ');
            u := a[i];
                while u <> Nil do begin
                    if u^.info mod 5 = 0 then
                    write('Ребро ',i,' -> ',u^.info , ' ');
                    u := u^.next;
                    
                end;
        writeln;
        end;    
    end;
    
End.