Массивы

[Vitalik81311]

Люди, помогите, ни чего не пойму, у меня получается какой то бред в конце:
Нужно: Преобразовать двумерный массив R, разделив значение элементов
каждой строки на значение первого элемента этой строки ???
Вот код, напишите, если не трудно правильный, пожалуйста...
Код:

procedure TForm1.FormCreate(Sender: TObject);
const
R:array [0..4,0..3] of string=
(('2,8','-12','4','1,5'),
('0','0','-3,2','-4'),
('1,8','4,2','-1,8','-3,5'),
('0','-6','0','-2'),
('-3','0','4,9','8,6'));
var
 i,j:integer;
begin
for i:=0 to 4 do
for j:=0 to 3 do
StringGrid1.Cells[j,i]:=R[i,j];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;

begin

for i:=0 to 4 do

for j:=0 to 3 do begin
if R[i,0]=0 then
label1.Caption:=label1.Caption+('деление на 0') else begin R[i,j]:=Trunc(R[i,j]/R[i,0]);
end;
end;

label1.Caption:=Label1.Caption( 'R[',i,',',j,']=',R[i,j]);
end;
end.