Pascal, проблемы с синтаксисом. Помогите исправить.

Question

Вот что имею я: 
for i:=1 to 15 do begin 
 a:=random(65)+30; 
 if a<40 printf('') end; 
 imax=1; max=a[1]; 
 for i:=2 to 15 do 
 if a>max then begin max:=a; imax=i; end; 
 printf (msx,imax) 
 imax2=0;max2=0; 
 for i:=1 to 15 do 
 if (a>max2) and (i!=imax) then begin max2:=a; imax2=i; end; 
 printf( max2,imax2); 
 
Помогите сделать программу выглядящую как прогамма и функционирующую соответственно.

Николай · Accepted Answer

for i:=1 to 15 do begin 
 a:=random(65)+30; 
 if a<40 then writeln(''); 
 imax:=1; max:=a[1]; 
 for i:=2 to 15 do 
 if a>max then begin max:=a; imax=i; end; 
writeln (msx,imax); 
 imax2:=0;max2:=0; 
 for i:=1 to 15 do 
 if (a>max2) and (непонятное=imax) then begin max2:=a; imax2=i; end; 
writeln( max2,imax2); 
 
Логику не проверял