var s:string; i,j:byte; For i:=0 to 4 do for j:=0 to 3 do s:=s+IntToStr(mas[i,j]); Label1.Caption := s;