Loading Question

[Le Jingle]

I was wondering what formats would be best for a larger file script.

Here's what I mean;

program Big;
{$i srl/srl.simba}

const
 WantedVariableName = 'Var1';  //Enter the variable to be found here

Procedure Main;

var
  Var1, Var2, Var3, Var4, etc : Integer;

begin

  Case LowerCase(WantedVariableName) of

    'Var1':
      begin
        Var1 := StrToInt(GetLetters(Between('', '', Getpage(''))))
        Writeln('Variable 1 Name Here   = ' + IntToStr(Var1));
      end;

    'Var2':
      begin
        Var2 := StrToInt(GetLetters(Between('', '', Getpage(''))))
        Writeln('Variable 2 Name Here   = ' + IntToStr(Var2));
      end;

    'Var3':
      begin
        Var3 := StrToInt(GetLetters(Between('', '', Getpage(''))))
        Writeln('Variable 3 Name Here   = ' + IntToStr(Var3));
      end;

    'etc':
      begin
        etc := StrToInt(GetLetters(Between('', '', Getpage(''))))
        Writeln('etc Name Here   = ' + IntToStr(etc));
      end;
  else
    begin
      Writeln('Finished.');
      TerminateScript;
    end;
  end;
end;




begin
  SetUpSRL;
  ClearDebug;
    repeat
      Main;
    until true
      TerminateScript;
end.

And that would be for tens of thousands of entries.

Gracious to any form of assistance! :>

Edit: .

[Le Jingle]

Hmm I think now I'm just curious if I should leave everything in one procedure, break every entry up into it's own procedure (a defined var and case of for each procedure), or use some type of a different/another function. thanks again to anyone who looks/helps