текстовый файл, содержащий целые числа

const
    Address = 'Test.txt';
    Max_Size = 255;
type
    MyType = array [1..Max_Size] of integer;
    MyChar = file of char;
procedure Find_MaxMin(TheArr:MyType;Cout:integer;var Max,Min:integer);
var
    i:integer;
begin
    Max:=TheArr[1];
    Min:=TheArr[1];
    for i:=1 to Cout do
    begin
        if(Max<TheArr[i])then
            Max:=TheArr[i];
        if(Min>TheArr[i])then
            Min:=TheArr[i];
    end;
end;
var
    File_Open:MyChar;
    TheArr:MyType;
    Temp:Char;
    Creat_Int:String;
    Cout:integer;
    Sred:integer;
    Max,Min:integer;
begin
    Assign(File_Open,Address);
    Reset(File_Open);
    Creat_Int:='';
    Cout:=1;
    while not eof(File_Open)do
    begin
        read(File_Open,Temp)    ;
        if(Temp <> #13)then
        begin
            if(Temp in ['0'..'9'])then
            begin
                Creat_Int:=Creat_Int+Temp;
            end
            else
            begin
                if(Creat_Int<>'')and(Creat_Int[1] in ['0'..'9'])then
                    TheArr[Cout]:=StrToInt(Creat_Int);
                Inc(Cout);
                Creat_Int:='';
            end;
        end
        else
        begin
            Find_MaxMin(TheArr,Cout-1,Max,Min);
            Sred:=Max-Min;
            Writeln(Sred,' ');
            
            Cout:=1;
            Creat_Int:='';
        end;
    end;
    Close(File_Open);
    
end.

read(f,a);