Pascal-tablice. Proszę o pomoc.

[anula943]

Mam takie zadanie: Napisz program, ktory ma wpisywac do tablicy 4x5 liczby losowo(od 0 do 50). Ma obliczac sumy wszystkich wierszy (suma każdego z osobna) i wpisywac te sumy do tablicy 4 elementowej.

Tu napisałam program na losowanie elementów i sumę wiersza tylko nie działa ;( ;( Nie wiem czy dobrze, ale dalej nie potrafię tego zrobi ;(. Proszę o pomoc jeśli to możliwe;) :

Kod: Zaznacz cały

program tablice;


var
t:array[1..5,1..4] of integer;

i,j,s:integer;
begin
s:=0;
randomize;
writeln('losuje elementy po przekątnej tablicy');
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin

(t[i,j]):=random(50);
write(t[i,j]:4);
end; {for j}

writeln;
end; {for i}
i:=0;
j:=0;
s:=0;

repeat
i:=1;
j:=j+1;
s:=s+(t[i,j]);

until j=4;
writeln('suma wiersza ',i,' to' ,s);
readln;
end.