unit libSeznam;

interface
type
    data = integer;
    uPrvek = ^Prvek;
    prvek = record
        data : data;
        dalsi : uPrvek;
    end;
    Seznam = object
        hlava,konec : uPrvek;
        constructor init;
        procedure prohod(var p1,p2 : uPrvek);
        procedure vypis;
        procedure vlozNaKonec(var co : data);
    end;

    function seznamZeSouboru(jmenoS : string) : seznam;

implementation
{----------------------------metody seznamu----------------------------}
constructor Seznam.init;
begin
new(hlava);
konec := hlava;
hlava^.dalsi := nil;
end;

procedure Seznam.prohod(var p1,p2 : uPrvek);
var pom : uPrvek;
begin
new(pom);
pom^.data := p2^.data;
p2^.data := p1^.data;
p1^.data := pom^.data;
dispose(pom);
end;

procedure Seznam.vypis;
var pom : uPrvek;
begin
pom := hlava;
while pom^.dalsi <> nil do begin
writeln(pom^.data);
pom := pom^.dalsi;
end;
end;

procedure Seznam.vlozNaKonec(var co : data);
begin
konec^.data := co;
new(konec^.dalsi);
konec := konec^.dalsi;
konec^.dalsi := nil;
end;

{----------------------------------------------------------------------}
function seznamZeSouboru(jmenoS : string) : seznam;
var
    userFile : text;
    d : data;
    sez : seznam;
begin
sez.init;
assign(userFile, jmenoS);
reset(userFile);
repeat
    readln(userFile, d);
    sez.vlozNaKonec(d);
until eof(userFile);
close(userFile);
seznamZeSouboru := sez;
end;
end.