Записи: Вывести на печать информацию об инструменте с самым большим сроком использования и выполнить корректировку этой записи

program laba7;
type
 ins=record
   nazvanie: string[15];
   chislo: integer;
   mesyac: integer;
   god: integer;
 end;  mas=array[1..3] of ins;
var
 spisok: ins;a:mas;
 sp: file of ins;
procedure vvod;
var i, j: byte;
begin
   rewrite(sp);
   with spisok do
   for i:=1 to 2 do
   begin
    writeln('vvedite nazvanie  ');
    readln(nazvanie);
    writeln('vvedite chislo[i] ');
    readln(chislo);
    writeln('vvedite mesayc[i]  ');
    readln(mesyac);
    writeln('vvedite god[i] ');
    readln(god);
    write(sp, spisok);
   end;
   close(sp);
end;
procedure print;
var j: byte;
begin
   reset(sp);
   writeln('spisok instrimentov ');
   while not eof(sp) do
   with spisok do
   begin
    Read(sp,spisok);
    write(nazvanie, ' ', chislo,' ',mesyac,' ', god, ' ');
    writeln;
   end;
   readln;
   close(sp);
end;
procedure work;
var sl, sm,i,n, sg,vozrast: integer; a:mas;
begin
     reset(sp);a[i]:=spisok;
      writeln('vvdite segodnay datu');readln(sl,sm,sg);
     read(sp,spisok);
       for i:=1 to 2 do begin vozrast:=0;
        vozrast:=sg-a[i].god; Writeln(vozrast,' let');end;
        write(sp,spisok);
      
   close(sp);
end;
begin
   assign(sp, 'instriment.DAT');
   vvod; print;
   work; print;
   readln;
end.