Fpc Test

program make_read_file;

type freal=file of integer;

// diadikasia pou grafis antikimena sto arxeio.

procedure makefile (var g:freal);
var ari8mos:integer;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
 if epilogi = 1 then
 begin
  while (epilogi=1) do
  begin
   write('Γράψτε έναν πραγματικό αριθμό στο αρχείο : ');readln(ari8mos);
   read(g,ari8mos);       //--> Standard Pascal =>  g^:=ari8mos;
   write(g,ari8mos);     //--> Standard Pascal =>  put(g);
   pli8os_antikimenon_sto_arxio:= pli8os_antikimenon_sto_arxio+1;
   writeln('Θέλετε να προσθέσετε και άλλο αριθμό στο αρχείο;');
   writeln('1=Ναι.');
   writeln('2=όχι, θέλω να φύγω.');
   write ('Τι θέλετε : '); readln(epilogi);
  end;
 end

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

end;

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

end;


// diadikasia pou emfanizis ta antikimena tou arxiou


procedure readfile(var f:freal);
var v:integer;
begin
   reset(f);
   writeln ('Τα αντικείμενα του αρχείου είναι : ');

   while not eof(f) do
   begin
    read(f,v);     // | --> Standard Pascal => writeln(f^);
        writeln(v);   // |
    read(f,v);   // --> Standard Pascal => get(f);
   end;

end;


// Kirios programma!

var f:freal;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.