Помогите решить задачу на Паскаль : "Напишите программу вычисления суммы минимальных элементов строк заданной матрицы."

var a: array[1..20] of integer; t,x:integer; begin for t:=1 to 20 do a[t]:=random(100); write('массив с рандомными элементами:'); for t:=1 to 20 do write(a[t], ' '); writeln; for t:=1 to 20 do begin x:=a[t]; a[t]:=a[t+1]; a[t+1]:=x; t:=t+1 end; write('переставлены соседние элементы массива:'); for t:=1 to 20 do write(a[t], ' '); readln; end. попробуй