program notass(input,output);
uses crt, sysutils;
type notas = record
    nombre:string;
    nota:integer;
end;
var
fnotas: file of notas;
rnotas:notas;

begin
assign(fnotas,'C:\Users\Gaston\Desktop/notas.dat');
if not(fileexists('C:\Users\Gaston\Desktop/notas.dat'))then begin
    rewrite(fnotas);
end;
reset(fnotas);
writeln('nombre y nota');
readln(rnotas.nombre);
readln(rnotas.nota);

write(fnotas,rnotas);
reset(fnotas);
read(fnotas,rnotas);
write(rnotas.nombre,' ', rnotas.nota);

reset(fnotas);
while(not eof(fnotas)) do begin

write(fnotas,rnotas);
end;
readln();
close(fnotas);
end.
//'C:\Users\Gaston\Desktop/notas.dat'