בעיה בשיעורי בית בפאסקל

[link]

שלום, יש לי שיעורי בית בפאסקל לעשות משחק איקס עיגול עם הגדרה של יחידה(unit) הבעיה היא שאני בודק מה שיש במערכים הוא מדפיס לי 0 למרות שאני מזין לו ערך אחר. אשמח אם תעזרו לי:
היחידה:

unit unit1;

interface

        type dod = record
             setup: array [1..3,1..3] of integer;
        end;

         procedure insert(a: dod);
         procedure draw(s: dod);

         implementation

         procedure insert(a: dod);
         var i,j : integer;
         begin
              for i := 1 to 3 do begin
                  for j := 1 to 3 do begin
                     a.setup[i,3] := 5;
                  end;
              end;
         end;

         procedure draw(s: dod);
         var i, j: integer;
         begin
              for i := 1 to 3 do begin
                  for j := 1 to 3 do begin
                      write(s.setup[i,j]);
                  end;
                  writeln;
              end;
         end;

begin
end.

הקובץ הראשי:

program xyz;
uses wincrt, unit1;

     var action: dod;

begin
     insert(action);
     draw(action);
end.

זה ליום רביעי, אז אשמח לקבל תשובות בהקדם.