[Java] Пулеметчицы против кавалеристок, игра в футбол Опции

[Shashlyk]

Добрый Вечер!!!
Помогите Пожалуйста переписать код с Паскаля на Ява:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  i: Integer;
  ch: Char;
  Home: Boolean;
  scored, conceded, goal1, goal2, t, j: Integer;
  s: String;

begin
Read(t);
for j := 1 to t do
Begin
  for i := 1 to 27 do Read(ch);
  if ch = 'h' then Home := True;
  for i := 1 to 17 do Read(ch);
  read(scored);
  for i := 1 to 21 do Read(ch);
  read(conceded);
  Readln;
if Home then
  Begin
    if scored > conceded then
    Begin
     goal1 := 0;
     goal2 := conceded + 30 - scored;
    End
    else //goal > Accept
    Begin
     goal1 := conceded - scored + 1;
     goal2 := conceded + 29 - scored;
    End
  End
  else //if not home
  Begin
    if scored > conceded then
    Begin
     goal1 := 0;
     goal2 := conceded + 29 - scored;
    End
    else //goal > Accept
    Begin
     goal1 := conceded - scored;
     goal2 := conceded + 30 - scored;
    End;
  End;
  Write(IntToStr(goal1) + ' ' + IntToStr(goal2));
End;
end.

У меня что-то не получается:

import java.util.Scanner;

public class Main {

    public static void main(String[] args) {

        Scanner con=new Scanner (System.in);
        char [] a;
        boolean Home = false;
        String  s;
        s = con.nextLine();
        a = new char[s.length()];
        a = s.toCharArray();
        int i, scored, conceded, goal1 = 0, goal2 = 0, t, j;
        t = con.nextInt();
        for( j = 1; j< t; j++){
  for (i = 1; i < 27; i++){
  if (a[i] = 'h'){Home = true;}}
  for (i = 1; i<  17; i++ ) Read(ch);
  read(scored);
  for i := 1 to 21 do Read(ch);
  read(conceded);

if (Home){
    if( scored > conceded )
    { goal1 = 0;
      goal2 = conceded + 30 - scored;}
    else //goal > Accept
    {goal1 = conceded - scored + 1;
     goal2 = conceded + 29 - scored;}
}
  else //if not home

{
    if (scored > conceded)
        {goal1 = 0;
         goal2 = conceded + 29 - scored;}
    else //goal > Accept
     {goal1 = conceded - scored;
      goal2 = conceded + 30 - scored;}
    }
}
  System.out.println(String.valueOf(goal1) + " " + String.valueOf(goal2));

}
}

Особенно не получается перевести :

for i := 1 to 27 do Read(ch);
  if ch = 'h' then Home := True;
  for i := 1 to 17 do Read(ch);
  read(scored);
  for i := 1 to 21 do Read(ch);
  read(conceded);
  Readln;

Добавлено через 10 мин.
Раньше изучал Паскаль, сейчас изучаю Яву... задачу нужно сдавать на Яве, но на ней плохо программирую(

[IUnknown]

Объясните Пожалуйста вот эту строчку: Pattern p = Pattern.compile("[0-9]+");
почему там от 0 до 9 ?

Потому что числа состоят из цифр от 0 до 9.

Как можно переделать код, чтобы можно было тестировать в НетБинсе...

Без понятия. Я НетБинс не держу, и почему там возникает исключение - не знаю. Консоль - наше всё Из консоли тестовый пример прекрасно работает (ну, в смысле, данные читает. А вот результат - неправильный выдает. Но логику уже сам исправляй, у тебя и в Паскалевской программе тоже результат неверный).

[Shashlyk]

Потому что числа состоят из цифр от 0 до 9.

Без понятия. Я НетБинс не держу, и почему там возникает исключение - не знаю. Консоль - наше всё Из консоли тестовый пример прекрасно работает (ну, в смысле, данные читает. А вот результат - неправильный выдает. Но логику уже сам исправляй, у тебя и в Паскалевской программе тоже результат неверный).

Если Вам не сложно, напишите Пожалуйста код без консоли