Tablica i liczby pseudolosowe

Witam potrzebuje aby ktoś rzucił okiem na ten kod, program ktory staram się napisać ma wypełniac tablice wymiaru 3X3 liczbami losowymi i wyswietlac te elementy ktore leza pod glowna przekatna. Z gory dziękuje za pomoc

**program macierz;
uses crt;
var
tab:array[1..3,1..3] of integer;
i,j:integer;
begin
randomize;
clrscr;
writeln('Program wypisuje elementy znajdujace sie pod glowna przekatna : ');

for i:=1 to 3 do
for j:=1 to 3 do
begin

tab[i,j] := random(9)+1;
write('tab[',i,',',j,'] =', tab[i,j]);
end;

while i>j do
write('tab[',i,',',j,']');
readln;
end. **

Witam,

Po co ta dodatkowa pętla "while" sprawdzająca warunek odpowiedniego usytuowania
względem przekątnej ? A może po prostu wstawić warunek "if" :

**program macierz;
uses crt;
var
tab:array[1..3,1..3] of integer;
i,j:integer;
begin
randomize;
clrscr;
writeln('Program wypisuje elementy znajdujace sie pod glowna przekatna : ');

for i:=1 to 3 do
for j:=1 to 3 do
begin

tab[i,j] := random(9)+1;
if i > j then begin
write('tab[',i,',',j,'] =', tab[i,j]);
end
end;
 

                                               Pozdrawiam

                                                        JK