Read/Write File (Pascal)

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

program make_read_file;

type fint=file of integer;

// diadikasia pou grafis antikimena sto arxio..
//===============================================

procedure makefile (var g:fint);
var ari8mos,epilogi,pli8os_antikimenon_sto_arxio:integer;
begin
    rewrite(g);
    pli8os_antikimenon_sto_arxio :=0;

    writeln('Θέλετε να γράψετε στο αρχείο;');
    writeln('1=Ναι.');
    writeln('2=Όχι, Θέλω να φύγω.');
    write ('Τι θέλετε : '); readln(epilogi);

    while ( (epilogi = 1) or (epilogi <> 2) ) do
    begin // an auto pou epele3e ine 1 'h diaforetiko tou 2..
         if epilogi = 1 then
         begin
              while (epilogi=1) do
              begin // an epel3e 1 tote..
                   write('Γράψτε έναν πραγματικό αριθμό στο αρχείο : ');readln(ari8mos);
                   g^:=ari8mos; // dose ton ari8mo sto g buffer
                   put(g); // ke balton sti 8esi tou arxiou
                   pli8os_antikimenon_sto_arxio:= pli8os_antikimenon_sto_arxio+1; //kratame ke to pli8os..
                   writeln('Θέλετε να προσθέσετε και άλλο αριθμό στο αρχείο;');
                   writeln('1=Ναι.');
                   writeln('2=Όχι, Θέλω να φύγω.'); // ksanadiabazi.. ke 3ana pezi i while
                   write ('Τι θέλετε : '); readln(epilogi); // me tin ena tou epilogi..
              end;
         end

          else if (epilogi<>2)  then
              begin // an ine diaforetiko tou 2 tou leme ekanes la8os epilogi...
                  write ('Λάθος επιλογή. Ξανά επιλέξτε : '); readln(epilogi);
              end;

end;

         if (epilogi=2) then // an epile3i 2 tote petaton e3o..
             if pli8os_antikimenon_sto_arxio>0 then
                  writeln ('Εγγραφή ',pli8os_antikimenon_sto_arxio,' αντικειμένων στο αρχείο............ [OK]')
             else
                 writeln ('Γεια σας. :-D');
end;

//======================================
// diadikasia pou emfanizi ta antikimena tou arxiou

procedure readfile(var f:fint);
begin

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

    while not eof(f) do // oso to arxio den exi teliosi
    begin
        writeln(f^);   // gra4e stin o8oni oti exi sto file buffer
        get(f);  // metakinise ton file buffer* stin epomeni 8esi tou arxiou
    end;

end;

// * Tin kefali ousiastiki anagnosis/eggrafis (R/W Header).

// =================================
// Kirios programma!

var f:fint; epilogi:char;
begin
    assign (f,'makefile.txt');
    writeln ('Καλώς ήρθατε.');

    write('Τι θέλετε να κάνετε;');
    write(' (R)ead, (W)rite, (E)xit : ');readln(epilogi);

    while ( (epilogi='R') or (epilogi='r')or(epilogi='W') or (epilogi='w') ) do
    begin

        if ( (epilogi='R') or (epilogi='r') ) then
            readfile(f)
        else if ( (epilogi='W') or (epilogi='w') ) then
            makefile(f);

    write('Τι θέλετε να κάνετε;');
    write(' (R)ead, (W)rite, (E)xit : ');readln(epilogi);

    end;
end.

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