В списке из 12 фамилий заменить, фамилии начинающиеся с буквы «В» фамилией «Сидоров»- PureBasic(Бейсик)

dim Fam(1 to 12) as string
dim i as integer
CLS
for i=1 to 12
   PRINT "ВВЕДИТЕ фамилию"
   INPUT Fam(i)
   if UCASE$(left$(Fam(i),1))="В" then
       Fam(i)="Сидоров"
   end if
next i
cls
PRINT "список фамилий:"
for i=1 to 12
   PRINT Fam(i)
next i
end