Найти ошибку в готовом коде

uses crt;
  var f:text; cf,bb,bs,r,k,ra:byte;  i:byte; st:string; label 2,3,4;
procedure ono;
 label 1;
 begin
 for i:=0 to r do begin
      1:case random(3) of
         0:if cf=1 then  st:=st+chr(random(10)+48) else goto 1;
         1:if bb=1 then  st:=st+chr(random(26)+65) else goto 1;
         2:if bs=1 then  st:=st+chr(random(26)+97) else goto 1;  end; end;
 end;
begin           3:clrscr; write('Задайте количество вариантов: ');
          readln(k);
          if (k=0) then begin
                    writeln('Ошибка! Количество вариантов не может быть равно нулю!');
                    write('Продолжить - `Enter`'); readln; goto 3;  end;
 
                   4:clrscr; gotoxy(60,1);writeln('Кол-во вариантов: ', k); gotoxy(1,1); write('Задайте размер пароля в символах: ');
          readln(r);
                       if (r=0) then begin
                    writeln('Ошибка!Размер пароля не может быть равен нулю!');
                    write('Продолжить - `Enter`'); readln; goto 4;  end;
 
         if (r<8) then begin
                    writeln('Рекомендуемый минимальный размер пароля 8 символов.');
                    write('Хотите изменить размер? (0-Нет,1-Да): '); readln(ra); if ra=1 then goto 4; end;
                    clrscr;
                gotoxy(60,2);writeln('Размер пароля: ', r); gotoxy(1,1);
             gotoxy(60,1);writeln('Кол-во вариантов: ', k); gotoxy(1,1);
             writeln('Включить цифры? 0-Нет 1-ДА');
          readln(cf);
          writeln('Включить Заглавные буквы? 0-Нет 1-ДА');
          readln(bb);
 
          writeln('Включить строчные буквы? 0-Нет 1-ДА');
          readln(bs);
                    if ((cf=0) and (bb=0) and (bs=0)) or (k=0) or (r=0) then begin
                    writeln('Введены неверные данные!');
                    writeln('Ни один тип символов не выбран.');
                    writeln('Нажмите `Enter` для продолжения...'); readln;
                     goto 3  end; clrscr;
                                      assign(f,'C://proverka.txt'); rewrite(f);
      for i:=1 to k do begin ono;   writeln(f,st); end;
           close(f);
 
end.