/*
Ugyanaz, mint  fajlok.pl feladat, csak "rendesen" (vagyis nagy kezdőbetűvel) adjuk meg a neveket.

*/

start:- fajlbol(Nevek, Pontok), 
	fajlba(Nevek, Pontok),
	writeln('Kész!').


fajlbol(Nevek,Pontok) :- see('adatok2.dat'), olvas(Nevek,Pontok), seen.

fajlba(Nevek,Pontok) :- write('Mi legyen az eredményfájl neve (kiterjesztéssel - esetleg útvonallal - aposztrofok között: '), 
			read(Eredmeny),
			tell(Eredmeny), kiir(Nevek,Pontok), told.


olvas([Nev|Tn],[Pont|Tp]) :- read(Nev), Nev\=end_of_file, read(Pont), olvas(Tn,Tp).
olvas([],[]).

kiir([Nev|Tn],[Pont|Tp]) :- writeq(Nev), writef('.\n%w.\n',[Pont]), kiir(Tn,Tp).
kiir([],[]).


