First=Last Obj μέσα σε αρχείο (Pascal).

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

type fint = file of integer;

function compare(var f:fint):boolean;

// epistrefi false otan to proto antikimeno tou arxiou DEN ine idio me to teleuteo 'H otan to arxio
// den periexi TIPOTA. Epistrefi True otan to proto ine idio me to teleuteo.

var arxikoantikimeno,telikoantikimeno:real;
begin

    reset(f); // Anigo to arxio gia anagnosi..

    if not eof(f) then // An iparxi kati mesa ke den ine adio..
    begin
        arxikoantikimeno := f^; // bale tin proti timi tou file buffer se auti ti metabliti..
    get(f); // pigene stin epomeni 8esi tou arxiou..

        while not eof(f) do // oso to arxio den exi teliosi
        begin
            telikoantikimeno := f^; // dine tin timi tou file buffer ( pou se ka8e epanali4i allazi )
                // se auti tin metabliti. ( opote molis teliosi to arxio i metabliti
                  // auti 8a exi tin teleutea timi tis teleuteas 8esis tou arxiou ).
            get(f);
        end;

        compare := arxikoantikimeno = telikoantikimeno; // an to proto ine idio me to teleuteom, tote
                            // episrtefi true sto onoma tis function,
    else                        // allios false ;)
    compare:=false  // diaforetika, an to arxio den exi tpt epestre4e false. ;)

end;


// telos sinartisis isotitas :P
// ==================================================
// diadikasia pou emfanizi ta antikimena tou arxiou

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

    while not eof(f) do
    begin
        writeln(f^); // gra4e tin timi tou file buffer stin o8oni..
        get(f);
    end;

end;

// telos diadikasis emfanisis arxion
// =========================================
// Kirios programma!


var epilogi:integer; f:fint;
begin
    assign(f,'filefalse.txt');

    writeln ('Θέλετε να ελέγξετε το αρχείο; ');
    writeln ('1 = Ναι.');
    writeln ('2 = όχι.');readln(epilogi);

    if (epilogi = 1) then
    begin
        if compare(f)=true then // dinoume to arxio stin sinartisi ke an epistrefi true
            writeln ('Το πρώτο με το τελευταίο αντικείμενο είναι ίδια.')
        else
            writeln ('Το πρώτο με το τελευταίο αντικείμενο δεν είναι ίδια.');
    end;

    writeln ('Ας δούμε το αρχείο. ');
    readfile(f);


end.

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