Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y

program bai_giai;
uses crt;
var f:text;
    d,nn,n:integer;
function min(x,y:integer):integer;
begin
    if x>y then min:=y else min:=x;
end;
BEGIN
    clrscr;
    Assign(f,'Y:\kiemtra.txt');   reset(f);
    d:=0;
    while not eof(f) do
        begin
            read(f,n);  d:=d+1;
            if d=1 then nn:=n
                else nn:=min(nn,n);
        end;
    write(nn);
    readln;
end.

uses crt;
var f:text;
    a,mi:longint;
function min(a,b:longint):longint;
begin
    if a>b then exit(b);
    exit(a);
end;
begin
    clrscr;
    assign(f,'Y:\kiemtra.txt');reset(f);
    mi:=high(longint);
    while not eof(f) do
        begin
            readln(f,a);
            mi:=min(mi,a);
        end;
    writeln(mi);
    close(f);
readkey;
end.