Исправьте программу программа не запускается

Program lab3;

var

i, imax, max:integer;

b:array[1 ... 50]of integer;

begin

for i:=1 to 50 do

begin

for b[i]: = ((sin*i) + (exp (sin*i)) (cos*i)) ;

write (b[i],' ') ;

if b[i]>max then

begin

max:=b[i];

imax:=i;

end;

end;

writeln;

writeln ('Максимальное число: ', max,'; его номер: ', imax) ;

end.

Program lab3;

var i, imax: integer;

max: real;

b:array[1 ... 50]of real;

begin

max:=0;

for i:=1 to 50 do

begin

b[i]: = (sin (i) + exp (sin (i))) * cos (i) ;

write (b[i]:4:2,' ') ;

if b[i]>max then

begin

max:=b[i];

imax:=i;

end;

end;

writeln;

writeln ('Максимальное число: ', max:4:2,', его номер: ', imax) ;

end.

1.71 - 1.41 - 1.28 0.19 - 0.16 0.46 1.95 - 0.54 - 1.75 - 0.03 0.00 0.04 1.76 0.50

1.95 - 0.44 0.16 - 0.18 1.30 1.39 - 1.72 - 0.98 0.22 - 0.21 0.74 1.88 - 1.04 - 1.52

0.11 - 0.09 0.24 1.91 - 0.05 - 1.89 - 0.20 0.08 - 0.09 1.57 0.96 - 1.90 - 0.69 0.21

-0.22 1.04 1.68 - 1.45 - 1.25 0.19 - 0.17 0.49

Максимальное число: 1.95, его номер: 7