Algoritmizace #2

// Exe: http://machalda.cekuj.net/d.php?f=27

program soubor1;

var f: text;
    pom: char;
    soubor: string;
    volba: integer;
    znak: char;
    pocet:integer;
begin
     writeln('###########################################################');
     writeln('#     Pouzit "input.txt" ? 1=ano | 0=ne | 666=konec');
     write('#->      volba: ');
     readln(volba);
     case volba of
     1:
       begin
            assign(f, 'input.txt');
       end;
     0:
       begin
            writeln('#     Zadej cestu a nazev souboru');
            write('#->      soubor: ');
            readln(soubor);
            assign(f, soubor);
       end;
     else
       begin
            volba:= 666;
       end;
     end;
     if volba <> 666 then
     begin
          writeln('#     Zadej hledany znak:');
          write('#->      znak: ');
          readln(znak);
          reset(f);
          while not eof(f) do
          begin
               while not eoln(f) do
               begin
                    read(f, pom);
                    if (pom = znak) OR (pom = upcase(znak)) OR (pom = lowercase(znak))  then pocet:=pocet+1;
               end;
               readln(f);
            end;
            write('#     Pocet znaku ');
            write(znak);
            write(' pocet je ');
            write(pocet);
            write('.');
     end
     else
     begin
          writeln('########################## KONEC ##########################');
     end;
close(f);
readln;
end.