Pascal/Turbo Pascal - Ayuda con declaración de variables/objetos

var

i:integer;

var:integer;

begin

   i:=i+1;

   var:=var+i;

end;

Var

	//Declarar si que declaro todas a mano

	ok1,ok2,ok3,ok4...okN : Boolean;

Begin

//Imaginamos que he declarado 100 variables de ok1 a ok100

//Ahora quiero compararlas despues de haber hecho algunas operaciones para saber su valor

//hasta ahora lo hago de esta manera

if((ok1 = true) or (ok2 = true) or (ok3 = true) or (ok4 = true)....(okN = true)) then begin

//...........

end;

//Lo que yo necesito es alguna manera para que el lenguaje se "trague" esto

	for i:= 1 to 100 do

		if((ok+i = true)then begin

		//.............

		end

	end;

End;

var

  datos:array[1..4]of boolean=(true,false,true,true);

  i:integer;

begin

  for i:=1 to length(datos) do

  begin

    if datos[i]=true then

      writeln('el dato ',i,' es true')

    else

      writeln('el dato ',i,' es false')

  end;

  readln;

end.

{Mira esta realizado sobre un string que puede almacenar 256 estados booleanos  mira como los cargo

y como los leo}

uses

      crt;

  const

      valor : array['0'..'1'] of boolean = (

      false,true);

  var

    vt : string;

    i : integer;

  procedure cargavalores(var t : string);

  begin

      for i := 1 to 100 do

      begin

       if i mod 2 = 0 then

         t[i] := '0'

      else

         t[i] := '1';

      end;

      t[0] := chr(i);

  end;

   begin

      clrscr;

      cargavalores(vt);

      for i := 1 to 100 do

      if vt[i] = '0' then

      write('     ',valor['0'])

    else

       write('     ',valor['1']);

      readkey;

   end.

{En caso de que sean numeros seria diferente pero para boleanas te serbiran}