还是那个程序，还有几个问题，帮我解决一下，谢谢

Question

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
ping,awin,bwin:boolean;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if a=b then
  ping:=true
  else
  begin
   if a=1 then
     begin
     if b=2 then
     awin:=false
     else
     awin;=true      这有错吗
     end;
   else             这有错吗
    begin
      if a=2 then
        begin
         if b=1 then
         awin:=true
         else
         awin:=false
        end
       else
       if a=3 then
       begin
       if b=1 then
       awin:=false
       else
       awin:=true
       end
    end
  end
if ping then               这有错吗
  label2.Caption:='平局'
  else
  begin
  if awin then
  label2.Caption:='play1获胜'
  else
  label2.Caption:='play2获胜'  endend;end.
还是那个石头剪子布的小游戏，帮我看看
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};这也有错吗，这可不是我些的啊，是自动生成的{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 1

awin;=true      这有错吗 //;=改成:=
else             这有错吗 //else 前面不加; 把end;的分号去掉
if ping then               这有错吗//前面的一句end少了分号
Unit1 in 'Unit1.pas' {Form1};这也有错吗，这可不是我些的啊，是自动生成的//这是因为unit1里有错误，编译不过去。

Answer 2

Unit1 in 'Unit1.pas' {Form1};这也有错吗，这可不是我些的啊，是自动生成的//这是因为unit1里有错误，编译不过去这个问题应该是你把单元文件和工程文件没放在同一个地方,所以才会这样.
改正方法:
   把单元和工程放在同目录,就可以了.
或
   把Unit1 in 'Unit1.pas' 改成Unitl in '单元路径单元名称就可以了

Answer 3

awin;=true     //改成:=
else             //else 前面不加; 把end;的分号去掉
if ping then     //前面的一句end少了分号