Pascal - ожидался идентификатор

var

a:integer;

b:real;

с: string ;

procedure my_proc;

var

d: double;

begin

d:=20.5464;

end;

begin

a:=10;

b:=5.6 ;

c:=sdf;

my_proc;

end.