подсчитывать сумму главной и побочной диагонали

[Fantazerishka]

Всем привет. Я попытался написать программу, но у меня выдает ошибку, а найти её не могу, в моей глючной портабл версии не показывает какие присутствуют в коде ошибке.
Программа по идее должна создавать матрицу 5 на 5 и подсчитывать сумму главной и побочной диагонали:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j,k,g,q:integer;
  a:array[1..5,1..5] of integer;
  s:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(101)-50;
Memo1.Lines.Add('Matrix created');
end;

procedure Matrix;
begin
for i:=1 to 5 do begin
s:='';
for j:=1 to 5 do begin
k:=length(IntToStr(a[i,j]));
case k of
1: s:=s+IntToStr(a[i,j])+'   ';
2: s:=s+IntToStr(a[i,j])+'  ';
3: s:=s+IntToStr(a[i,j])+' ';
end; end;
Memo1.Lines.Add(s);
end;

procedure slaja;
begin
g:=a[1,1]+a[2,2]+a[3,3];
q:=a[3,1]+a[2,2]+a[3,1];
Memo1.Lines.Add('Ãëàâíàÿ'+IntToStr(g));
Memo1.Lines.Add('Ïîáî÷íàÿ'+IntToStr(q));
end;
end.

Я понимаю что у меня это реализованно убого, но ничего лучше моей мозг придумать не смог так как ночью он плохо переваривает информацию.

П.С. и ещё если кому не лень не могли бы вы вставить туда объект TChart который бы показывал соотношение сумм диагоналей, просто просили с ним, а портабл при его вставке зависает напрочь.
Очень прошу помочь)

[BSka]

Исправил.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
 procedure Matrix;
 procedure slaja;
  end;

var
  Form1: TForm1;
  i,j,k,g,q:integer;
  a:array[1..5,1..5] of integer;
  s:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(101)-50;
Memo1.Lines.Add('Matrix created');
matrix;
slaja;
end;

procedure TForm1.Matrix;
begin
for i:=1 to 5 do begin
s:='';
for j:=1 to 5 do begin
k:=length(IntToStr(a[i,j]));
case k of
1: s:=s+IntToStr(a[i,j])+'   ';
2: s:=s+IntToStr(a[i,j])+'  ';
3: s:=s+IntToStr(a[i,j])+' ';
end; end;
Memo1.Lines.Add(s);
end; end;

procedure TForm1.slaja;
begin
g:=0;
q:=0;
For i:=1 to 5 do
For j:=1 to 5 do
if i=j then g:=g+a[i,j] else
if i+j=6 then q:=q+a[i,j];
Memo1.Lines.Add('Glavnaya'+IntToStr(g));
Memo1.Lines.Add('Pobochnaya'+IntToStr(q));
end;

[Fantazerishka]

Жаль что тему переименовали (я сам виноват конечно), просто успел заметить что в подобные заходят в 2 раза реже чем в остальные)))

BSka огромное спасибо и плюсик) Только посмотрев на твой вариант сразу увидел все что я по глупости пропустил)) Ещё раз спасибо)