Срочно нужна помощь в решении!!!

[VeseloffS]

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить максимальное по абсолютному значению число в данной последовательности.

Вот то что у меня получилось, как сделать чтоб числа считывались из строки(Edit), а разделялись числа запятой. Например: 1,2,3,4,5,0

procedure TForm1.Button1Click(Sender: TObject);
const
size=5;
var
A:array[0..size] of integer;
i: integer;
max:integer;

begin

for i:=1 to size do
A[i]:=Strtoint(Stringgrid1.Cells[i-1,0]);
max:=1;
for i:=2 to size do
if abs(A[i])>abs(A[max]) then
max:=i;
label1.caption:='Максимальный элемент:'+inttostr(A[max])+#13+'Порядковый номер:'
+inttostr(max);
end;