Ошибка в коде .

[vedro-compota]

Здравствуйте. ))
Компилятор выдаёт сообщение какое-то странное -

[Pascal Error] Unit1.pas(41): E2029 'END' expected but ')' found

а до него -

[Pascal Error] Unit1.pas(48): E2029 '.' expected but ';' found

вот код , скобки, вроде расставлены правильно.
Выделяет красную строку-

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var q,a,b,x0,y0:integer;
begin
  q:=0;
  canvas.Pen.Width:= 10;
  form1.canvas.Ellipse(150,150,250,250);
  form1.canvas.Ellipse(195,195,205,205);
  canvas.Pen.Width:= 2;
  form1.Canvas.MoveTo(200,200);
  X0:=150;
  y0:=200;
  for q := 1 to 10 do
  begin
    form1.Canvas.MoveTo(200,200);
    a:=x0+trunc(100*sin(q/2)*cos((180-q)/2))) ;
    b:=y0-trunc(100*sin(q/2)*sin((180-q)/2))) ;
    form1.Canvas.LineTo(a,b);
  end;
 // a[i,1]:=trunc(80*sin(q+i*pi/2));
 // a[i,1]:=trunc(-30*cos(q+i*pi/2));

end;

end.

Пожалуйста, подскажите в чём ошибка )) ТОлько "спрыгнуть не предлагайте" - лучше уж в армию ))

[S@fer]

a:=x0+trunc(100*sin(q/2)*cos((180-q)/2))) ;
    b:=y0-trunc(100*sin(q/2)*sin((180-q)/2))) ;

одна лишняя закрывающая скобка в конце

[VintProg]

Вот в чем:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var q,a,b,x0,y0:integer;
begin
  q:=0;
  canvas.Pen.Width:= 10;
  form1.canvas.Ellipse(150,150,250,250);
  form1.canvas.Ellipse(195,195,205,205);
  canvas.Pen.Width:= 2;
  form1.Canvas.MoveTo(200,200);
  X0:=150;
  y0:=200;
  for q := 1 to 10 do
  begin
    form1.Canvas.MoveTo(200,200);

    a:=x0+ trunc(100*sin(q/2)*cos( (180-q)/2));
    b:=y0-trunc(100*sin(q/2)*sin((180-q)/2));
    form1.Canvas.LineTo(a,b);
  end;
 // a[i,1]:=trunc(80*sin(q+i*pi/2));
 // a[i,1]:=trunc(-30*cos(q+i*pi/2));

end;

end.

[vedro-compota]

спасибо! ))