Help What Am i Doing Wrong

Ok i've made this script but i'm getting

Code:

Failed when compiling
Line 16: [Error] (16:5): Semicolon (';') expected in script C:\Documents and Settings\Kelechi Nze\Desktop\2nd Script.scar

Code:

program New;

var
mile:integer;

function MilesToKilometers(miles:extended):extended;
begin
  result:= mile * 1.609;
end;

procedure WriteFunction;
begin
 mile:= 1
 if mile > 1  then;
 writeln(inttostr(mile)+ ' miles is equal to '+floattostr(MilesToKilometers(1.0))+' kilometers');
 end else
 begin
 writeln(inttostr(mile)+ ' mile is equal to '+floattostr(MilesToKilometers(1.0))+' kilometers');
end;

begin
  WriteFunction;
end.

 

now it suposed to be right.
you missed 1 end from the script.

 

Code:

program New;

var
mile:integer;

function MilesToKilometers(miles:extended):extended;
begin
  result:= mile * 1.609;
end;

procedure WriteFunction;
begin
 mile:= 1
 if mile > 1  then
 writeln(inttostr(mile)+ ' miles is equal to '+floattostr(MilesToKilometers(1.0))+' kilometers')
 else
 writeln(inttostr(mile)+ ' mile is equal to '+floattostr(MilesToKilometers(1.0))+' kilometers');
end;

begin
  WriteFunction;
end.