Πλήθος γραμμών (Pascal).

{                              Visit:   http://g-lts.no-ip.info/  for more code!              }
program grammes;

type fchar = file of char;

// ====================================
//diadikasia ebresis pli8ous grammon

procedure lines(var f:fchar; var i:integer);
begin
    i:= 0;
    reset(f);

    while not eof(f) do
    begin

        if (f^=chr(13)) then // molis broume to chr(13)
        begin
            get(f); // ke to epomeno ine to cr(10) .. ;)
            if ( ( (not eof(f)) and (f^=chr(10)) ) ) then
                    i:=i+1; // metrame gia grami
        end;

        get(f);

    end;

end;


//telos diadikasias ebresis pli8ous grammon
//===================================================
//diakasia pou briski to pli8os ton xaraktiron

procedure pli8os(var f:fchar; var n:integer);
begin
    n:=0;
    reset(f);

    while not eof(f) do
    begin // oti ine mesa apla metratro san xaraktira ( efoson kaname auti tin simfonia ).
        n:=n+1;
        get(f);
    end;

end;


// telos diadikasias pou briski to pli8os ton xaraktiron
//===================================================
//diakasia pou emfanizi ta antikimena tou arxiou

procedure readfile(var f:fchar);
begin
    reset(f);

    writeln ('Τα αντικείμενα του αρχείου είναι : ');

    while not eof(f) do
    begin
        write(f^);
        get(f);
    end;

end;

// telos diakasias pou emfanizi ta antikimena tou arxiou
//===================================================
//kirio programma

var i,n:integer;f:fchar;
begin
    assign (f,'xara.txt');
    lines(f,i); // perni to arxio ke epistrefi ke ena i gia tis grammes..
    writeln('Οι γραμμές του αρχείου είναι : ',i);
    pli8os(f,n); // perni to arxio ke epistrefi ke ena n gia tous xaraktires
    writeln('Οι χαρακτήρες είναι : ',n);

    // as emfanisoume sto telos ke ta periexomena tou arxiou
    readfile(f);


end.

{                              Visit:   http://g-lts.no-ip.info/  for more code!              }