error 124?

[AJW]

Hi, I am using Delphi 5 and I need some help with calling a procedure within another one... because I get [Error] ns.pas(124): Declaration expected but identifier 'write' found Any help with this would be greatly appreciated
procedure TForm1.SortButtonClick(Sender: TObject);
var nums, x : Integer;
begin

x := 1;
While x > 0 Do
X := 0;
For nums := 1 to (MaxNumbers - 1) do
begin if Num[nums] > Num[nums+1]
then begin Swap(Num[nums], Num[nums+1]);
inc(x); end; end; end;
write;
end;

 

[svanels]

procedure TForm1.SortButtonClick(Sender: TObject);
var nums, x : Integer;
begin //1

x := 1;
While x > 0 Do // begin?
X := 0;
For nums := 1 to (MaxNumbers - 1) do
begin //2
if Num[nums] > Num[nums+1]
then begin //3
Swap(Num[nums], Num[nums+1]);
inc(x);
end; //3
end; //2
end; //this end has no begin
write;
end;//1

It looks like you forgot a begin

S. van Els
SAvanEls@cq-link.sr