[Страдалецъ]

Код:

for i:=1 to 5 do
 for j:=1 to 5 do
   if i=j
    then b[i]:=a[i,j];
   str(b[i]:6:2,s1);
   memo1.Lines.Add('элементы массива - '+s1);

Судя по коду предполагается, что в Memo1 будут попадать элементы главной диагонали, но они не попадают.
Ошибка в отсутсвии begin end

Код:

for i:=1 to 5 
do for j:=1 to 5 
    do if i=j
        then begin
               b[i]:=a[i,j];
               str(b[i]:6:2,s1);
               memo1.Lines.Add('элементы массива - '+s1);
               end; 

Но вообще-то поскольку главная диагональ это свойство квадратной матрицы, то можно попроще это делать:

Код:

for i:=1 to 5 
do begin
    b[i]:=a[i,i];
    str(b[i]:6:2,s1);
    memo1.Lines.Add('элементы массива - '+s1);
    end; 

Откуда дальше взялась n ?

Код:

for i:=1 to n do
   s:=s+b[i];