Algoritmizace #1

// EXE: http://machalda.cekuj.net/d.php?f=26
program soubor1;

var f: text;
    pom: char;
    radky: integer;
    znaky: integer;
    soubor: string;
    volba: integer;
    prumer: real;
begin
     znaky:=0;
     radky:=0;
     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
          reset(f);
          while not eof(f) do
          begin
               radky:=radky+1;
               while not eoln(f) do
               begin
                    read(f, pom);
                    znaky:=znaky+1;
               end;
               readln(f);
            end;
            prumer:= znaky / radky;
            write('#     Pocet znaku ');
            writeln(znaky);
            write('#     Pocet radku ');
            writeln(radky);
            write('#     Prumerne znaku na radek ');
            writeln(prumer);
            writeln('############################ KONEC ###########################');
     end
     else
     begin
          writeln('########################## KONEC ##########################');
     end;
close(f);
readln;
end.