Создать файл TEMP, состоящий из записей. Каждая запись: порядковый номер, год, среднегодовая температура

program lab11;
uses crt;
type temperature= record
number:integer;
year:integer;
temp:real;
end;
const tem_re:array [1..7] of temperature= ((number:1; year:1974; temp:16.4),.. );
var f1,f2:file of temperature;
tem,tem_max:temperature;
i:integer;
begin clrscr;
assign (f1, 'temp.txt');
rewrite (f1);
for i:=1 to 7 do
write (f1,tem_re[i]);
close (f1);
assign (f2, 'temp1.txt');
rewrite (f2);
while not eof (f1) do
begin
read (f1,tem);
if tem.temp>16 then
begin
write (f2,tem);
writeln (tem.number, ' ', tem.year, ' ',tem.temp:2:1);
end;
end;
close (f2);
close (f1);
assign (f1,'temp.txt');
reset (f1);
if not eof(f1) then read(f1,tem_max);
while not eof(f1) do
begin
read (f1,tem);
if tem.temp>tem_max.temp then
tem_max:=tem;
end;
close(f1);
writeln;
writeln ('temperature MAX');
writeln (tem_max.number , ' ',tem_max.year, ' ' , tem_max.temp:2:1);
readkey;
end.

const tem_re:array [1..7] of temperature= ((number:1; year:1974; temp:16.4));

const tem_re:array [1..7] of temperature= ((number:1; year:1974; temp:16.4),.. );

var tem_re:array [1..7] of temperature;

program lab11;
uses crt;
type temperature= record
                   number:integer;
                   year:integer;
                   temp:real;
                  end;
const tem_re:array [1..7] of temperature= ((number:1; year:1974; temp:16.4),
                                           (number:2; year:1975; temp:15.8),
                                           (number:3; year:1976; temp:14.5),
                                           (number:4; year:1977; temp:17.2),
                                           (number:5; year:1978; temp:17.1),
                                           (number:6; year:1979; temp:16.2),
                                           (number:7; year:1980; temp:14.8));
var f1,f2:file of temperature;
    tem,tem_max:temperature;
    i:integer;
begin
clrscr;
assign (f1, 'temp.txt');
rewrite (f1);
for i:=1 to 7 do
write (f1,tem_re[i]);
assign (f2, 'temp1.txt');
rewrite (f2);
while not eof (f1) do
 begin
  read (f1,tem);
  if tem.temp>16 then
   begin
    write (f2,tem);
    writeln (tem.number, ' ', tem.year, ' ',tem.temp:2:1);
   end;
 end;
reset (f1);
read(f1,tem_max);
while not eof(f1) do
 begin
  read (f1,tem);
  if tem.temp>tem_max.temp then tem_max:=tem;
 end;
close(f1);
writeln;
writeln ('temperature MAX');
writeln (tem_max.number , ' ',tem_max.year, ' ' , tem_max.temp:2:1);
readkey;
end.

reset(f1);