Перевод кода Pascal на Java

uses
  sysutils,crt;
const
  n=1;
type
  marks=array [1..5,1..12] of integer;
  student=record
    fam:string[128];
    dr:string[10]; // 01.01.2000
    gp:integer;
    kurs:integer;
    gruppa:string[10]; //963Б
    oc:marks;
  end;
var
  i,j,k:integer;
  year,day,month:word;
  d:tdate;
  spisok:array[1..n] of student;
begin
  d:=now;
  decodedate(d,year,month,day); // текущий месяц
 
  for i:=1 to n do
    begin
      write('Введите ФИО студента: ');  readln(spisok[i].fam);
      write('Введите дату рождения студента: ');  readln(spisok[i].dr);
      write('Введите год поступления в техникум: ');  readln(spisok[i].gp);
      write('Введите курс: ');  readln(spisok[i].kurs);
      write('Введите группу: ');  readln(spisok[i].gruppa);
      writeln('Введите оценки: ');
      for j:=1 to spisok[i].kurs do
        begin
          writeln(i,'-й курс',', введите количество оценок в зимнюю сессию: ');
          readln(spisok[i].oc[j,1]);
          writeln('Введите оценки: ');
          for k:=1 to spisok[i].oc[j,1] do
            readln(spisok[i].oc[j,k+1]);
          writeln(i,'-й курс',', введите количество оценок в летнюю сессию: ');
          readln(spisok[i].oc[j,6]);
          writeln('Введите оценки: ');
          for k:=1 to spisok[i].oc[j,6] do
            readln(spisok[i].oc[j,k+6]);
        end;
    end;
  clrscr;
  writeln('Полный список студентов:');
  for i:=1 to n do
    begin
      write(spisok[i].fam,', ',spisok[i].dr,', ',spisok[i].gp,', ',spisok[i].kurs,', ',spisok[i].gruppa);
      writeln;
      for j:=1 to spisok[i].kurs do
        begin
          write(i,'-й курс',', оценки в зимнюю сессию: ');
          for k:=1 to spisok[i].oc[j,1] do
            write(spisok[i].oc[j,k+1],' ');
          writeln;
          write(i,'-й курс',', оценки в летнюю сессию: ');
          for k:=1 to spisok[i].oc[j,6] do
            write(spisok[i].oc[j,k+6],' ');
        end;
    end;
  writeln;
  writeln('Список студентов по условию:');
  for i:=1 to n do
    if (spisok[i].fam[1]='В') or (spisok[i].fam[1]='Г') then
    begin
      write(spisok[i].fam,', ',spisok[i].dr,', ',spisok[i].gp,', ',spisok[i].kurs,', ',spisok[i].gruppa);
      writeln;
      j:=spisok[i].kurs;
      if (month in [1..5,12]) then
        begin
          write(i,'-й курс',', оценки в зимнюю сессию: ');
          for k:=1 to spisok[i].oc[j,1] do
            write(spisok[i].oc[j,k+1],' ');
        end
      else
        begin
          write(i,'-й курс',', оценки в летнюю сессию: ');
          for k:=1 to spisok[i].oc[j,6] do
            write(spisok[i].oc[j,k+6],' ');
        end;
    end;
  readln;
end.