הוסטס - פורום אחסון האתרים הגדול בישראל

שלום, יש לי שיעורי בית בפאסקל לעשות משחק איקס עיגול עם הגדרה של יחידה(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.

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