View Compilation Error

294573_0_7551\Main.java:1: 需要 "class" 或 "interface"
Program safest;
^
294573_0_7551\Main.java:2: 需要 "class" 或 "interface"
Const
^
294573_0_7551\Main.java:3: 未结束的字符字面值
  Infile = 'safest.in';
           ^
294573_0_7551\Main.java:3: 未结束的字符字面值
  Infile = 'safest.in';
                     ^
294573_0_7551\Main.java:4: 未结束的字符字面值
  Outfile = 'safest.out';
            ^
294573_0_7551\Main.java:4: 未结束的字符字面值
  Outfile = 'safest.out';
                       ^
294573_0_7551\Main.java:7: 需要 "class" 或 "interface"
  Cost:Array[1..1000, 1..1000]Of Real;
  ^
294573_0_7551\Main.java:8: 需要 "class" 或 "interface"
  First, Tail:Array[1..1000]Of Integer;
  ^
294573_0_7551\Main.java:9: 需要 "class" 或 "interface"
  l, Tea:Integer;
  ^
294573_0_7551\Main.java:10: 需要 "class" 或 "interface"
  x:Array[1..1000]Of Real;
  ^
294573_0_7551\Main.java:11: 需要 "class" 或 "interface"
Procedure Try1(a, b:Integer);
^
294573_0_7551\Main.java:12: 需要 "class" 或 "interface"
Var
^
294573_0_7551\Main.java:14: 需要 "class" 或 "interface"
  Path:Array[1..1000]Of Integer;
  ^
294573_0_7551\Main.java:15: 需要 "class" 或 "interface"
  u:Integer;
  ^
294573_0_7551\Main.java:16: 需要 "class" 或 "interface"
  Min:Real;
  ^
294573_0_7551\Main.java:17: 需要 "class" 或 "interface"
Begin
^
294573_0_7551\Main.java:20: 需要 "class" 或 "interface"
    Path[i] := 0;
    ^
294573_0_7551\Main.java:21: 需要 "class" 或 "interface"
  End;
  ^
294573_0_7551\Main.java:22: 需要 "class" 或 "interface"
  Dist[a] := 1;
  ^
294573_0_7551\Main.java:23: 需要 "class" 或 "interface"
  Path[a] := 1;
  ^
294573_0_7551\Main.java:24: 需要 "class" 或 "interface"
  u := a;
  ^
294573_0_7551\Main.java:25: 需要 "class" 或 "interface"
  While u <> b Do Begin
  ^
294573_0_7551\Main.java:29: 需要 "class" 或 "interface"
      End;
      ^
294573_0_7551\Main.java:30: 需要 "class" 或 "interface"
    Min := 0;
    ^
294573_0_7551\Main.java:31: 需要 "class" 或 "interface"
    For j := 1 To n Do
    ^
294573_0_7551\Main.java:34: 需要 "class" 或 "interface"
        Min := Dist[j];
        ^
294573_0_7551\Main.java:35: 需要 "class" 或 "interface"
      End;
      ^
294573_0_7551\Main.java:37: 需要 "class" 或 "interface"
    Path[u] := 1;
    ^
294573_0_7551\Main.java:38: 需要 "class" 或 "interface"
   End;
   ^
294573_0_7551\Main.java:39: 需要 "class" 或 "interface"
   If Min = 0 Then Begin
   ^
294573_0_7551\Main.java:41: 需要 "class" 或 "interface"
      ReWrite(Output);
      ^
294573_0_7551\Main.java:42: 需要 "class" 或 "interface"
      WriteLn('What a pity');
      ^
294573_0_7551\Main.java:42: 未结束的字符字面值
      WriteLn('What a pity');
              ^
294573_0_7551\Main.java:42: 未结束的字符字面值
      WriteLn('What a pity');
                          ^
34 错误