Pola i typy

cześć... Mam powiedzmy taki typ:

Type
 TMojTyp = Record
   pole1: integer;
   pole2: string;
   pole3: integer;
   ...
   ...
   pole10: string;
end;

var
 MojTyp: array of TMojTyp;

I w pewnym momencie muszę wykonać pewną czynność z każdym z pól z osobna. Nie chce mi się tego robić 10 razy. Więc, czy jest coś, co pozwoli mi wrzucić to do jakiejś pętli?

Tzn. zamiast pisać:

for i:=0 to x do
     begin
      mojTyp[i].pole1 blablabla
      //blablabla;
    end;

for i:=0 to x do
     begin
      mojTyp[i].Pole2 blablabla
      //blablabla;
     end;

czy mogę zrobić to w dwóch pętlach? Coś np:

for i:=0 to x do
     begin
      for p:=0 to 9 do mojTyp[i].pole[p] blablabla;
      //blablabla
    end;

Zrob pole będące tablicą i odwołuj się do elementów tej tablicy

type TMojTyp=record
 polaint:array[1..10] of integer;
 polastring:array[1..10] of string;
end;