Работа с файлами (DelphiXE3)
Нужно записать фамилии и имена в файл, а после этого открыв файл нужно считать данные и вывести на экран самого старшего сотрудника, записать в фаил получилось, а как считать с него и вывести имя и возраст старшего сотрудика.
type
tstud = record
name:string;
age:integer;
end;
const
n=2;
var
fl:textfile;
x: integer;
stud: array [1..n] of tstud;
k:1..n;
line: string;
line1: integer;
begin
x:=0;
writeln('Введите имена и возраст');
for k:=1 to n do
begin
write('имя>> ');
readln(stud[k].name);
write('возраст>> ');
readln(stud[k].age);
end;
begin
Assign(fl, 'D:\in.txt');
rewrite(fl);
close(fl);
for k := 1 to n do
begin
append(fl);
line := stud[k].name;
write(fl, line);
write(fl, ', ');
line1 := stud[k].age;
write(fl, line1);
writeln(fl);
close(fl);
end;
end.