Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.

uses crt;
var f:text;
    nf,ng,s,s1:string;
    t,c,mn:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
readln(f,s);
val(copy(s,7,4),mn,c);
while not eof(f) do
 begin
  readln(f,s);
  val(copy(s,7,4),t,c);
  if t<mn then mn:=t;
 end;
close(f);
write('Наименьший год=',mn);
readln
end.

uses crt;
var f:text;
    nf,ng,s,mn:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
readln(f,s);
mn:=copy(s,7,4);
while not eof(f) do
 begin
  readln(f,s);
  if copy(s,7,4)<mn then mn:=copy(s,7,4);
 end;
close(f);
write('Наименьший год=',mn);
readln
end.