Тема: Масиви(таблиці, Делфі)
Всім доброго дня!
Дійшов у підручнику до "двухмерных массивов"(підручник рос.). Як приклад програми приводиться программа, яка вичисляє кількість всіх медалей завойованих командою, переводе їх в очки і на їхній основі впорядковує команди в таблиці.
Ось як виглядає вікно програми:
Рахують і впорядковують дані дві різні кнопки(другой поки ще немає 
).
Так, а тепер проблемка: не працює ( 
) .
Натискаю "Итоги". Видає помилку:
Ось код процедури натискання:
procedure TForm1.Button1Click(Sender: TObject);
var
a: array[1..5, 1..13] of integer;
i:integer; // номер строки. Используется во время сортировки
j:integer; // номер колонки
begin
{зберігаємо данні введені в таблицю до масиву}
for i:= 1 to 13 do begin
for j:= 1 to 5 do begin
if (Tab1.Cells[j, i]= '') then
Tab1.Cells[j, i]:= '0';
a[i, j]:= StrToInt(Tab1.Cells[j, i]);
end;
end;
{рахуємо загальну кількість медалей}
for i:= 1 to 13 do begin
Tab1.Cells[4, i]:= IntToStr(a[1, i]+a[2, i]+a[3, i]);
end;
end;При запусканні програми в Делфі вказує на
if (Tab1.Cells[j, i]= '') then
Tab1.Cells[j, i]:= '0';Допоможіть, будь-ласка.
