Tablica dwuwymiarowa - obliczenie sumy kolumn.

Witam,
muszę napisać program który z tablicy 10x10 musi obliczyć sumę kolumny podanej przez użytkownika, są to moje początki programowania i byłbym wdzięczny jeżeli by mi ktoś pomógł rozwiązać to zadanie. Wrzucam to co sam naskrobałem :

program kolumna;
var t:array [1..10,1..10] of integer;
        a,i,j,suma: integer;

begin
randomize;
  for i:=1 to 3 do
   begin
     for j:=1 to 3 do
   begin
    (t[i,j]):=random(5)+1;
     write (t[i,j]:3,' ');
   end;
     writeln;
   end;
  readln;
  suma:=0;
Write('Ktora kolumne obliczyc : ');
 readln(a);
    for i:=1 to 3 do
     for j:=a to 3 do
    suma:=suma+t[i,j];
    write(suma);
    readln;

end.

Nie proszę o gotowy kod bo to mi nic nie pomoże, proszę tylko o wyjaśnienie jak się do tego zabrać.

Nic trudnego - tablicę masz indeksowaną od 1 do 10 (indeksuj od 0!), więc musisz napisać pętlę, której iterator przyjmować będzie wartość od 1 do 10 - to będzie indeks wiersza; Natomiast indeksem kolumny będzie liczba podana przez użytkownika; Te dwie współrzędne umożliwią Ci dostęp do wszystkich komórek danej kolumny i zsumowanie ich wartości;

PS: Dlaczego pętlę uzupełniającą oraz pętle sumujące indeksujesz od 1 do 3?

Może coś w ten deseń:

const SIZE=10;
var t:array [0..SIZE,0..SIZE-1] of Integer;
var y,x,v:Integer;
begin
  Randomize;
  for x:=0 to SIZE-1 do t[SIZE,x]:=0;
  for y:=0 to SIZE-1 do
  begin
    for x:=0 to SIZE-1 do
    begin
      v:=1+Random(5);
      t[y,x]:=v;
      Inc(t[SIZE,x],v);
      Write(v:2);
    end;
    WriteLn;
  end;
  Write('Ktora kolumne zsumowac (numeracja od 1): ');
  ReadLn(x);
  if (1<=x)and(x<=SIZE) then WriteLn('Suma kolumny ',x,' wynosi: ',t[SIZE,x-1])
  else WriteLn('Niepoprawny numer kolumny');
  ReadLn;
end.

Do 3 bo chciałem zrobić to na tablicy 3x3 i tak policzyć wynik i sprawdzic czy zgadza się on z tym co obliczyć program

Bardzo proste, w programie wyżej zamienić liczbę: 10 na: 3