konyvek.txt

J.R.R. Tolkien
A hobbit
1970
J.K. Rowling
Harry Potter és a bölcsek köve
1998
Karl May
Winnetou
1960

szekvfile.pas

program szekvfile;

type TKonyv = record
		szerzo: string[50];
		cim: string[50];
		ev: integer;
	 end;
	 TSzovFile = text;
	 TTipFile = file of TKonyv;

procedure SzovegesbolTipusos;
var f: TSzovFile;
    g: TTipFile;
    k: TKonyv;
begin
	assign(f, 'konyvek.txt');
	reset(f);
	assign(g, 'konyvek.dat');
	rewrite(g);
	
	while not eof(f) do begin
		readln(f, k.szerzo);
		readln(f, k.cim);
		readln(f, k.ev);
		write(g, k);
	end;
	
	close(f);
	close(g);
end;

procedure Kiiras;
var f: TTipFile;
    k: TKonyv;
begin
	assign(f, 'konyvek.dat');
	reset(f);
	
	while not eof(f) do begin
		read(f, k);
		writeln(k.szerzo:35, k.cim:35, k.ev:5);
	end;
	
	close(f);
end;

procedure LegregebbiKonyv;
var f: TTipFile;
    minkonyv, k: TKonyv;
begin
	assign(f, 'konyvek.dat');
	reset(f);
	read(f, k);
	minkonyv := k;
	while not eof(f) do begin
		read(f, k);
		if k.ev<minkonyv.ev then begin
			minkonyv:=k;
		end;
	end;
	
	close(f);
	
	writeln('Legregebbi konyv');
	writeln(minkonyv.szerzo:35, minkonyv.cim:35, minkonyv.ev:5);
end;

BEGIN
	SzovegesbolTipusos;
	Kiiras;
	LegregebbiKonyv;
	
	writeln(pos(upcase('tolkien'), upcase('J.R.R. Tolkien')))
END.