Определить максимальное по абсолютному значению число

[VeseloffS]

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

Вот то что у меня получилось, как сделать чтоб числа считывались из строки, а разделялись числа запятой. Например: 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;

[Скандербег]

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

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

А эта фраза к чему относится? В коде упоминается только StringGrid.

[Evgeniy26]

var
  StartS, EndS: String;
  i: Integer;
begin
  StartS := Edit.Text;
  EndS := '';
  for i := 1 to Length(StartS) do
    if i <> Lengh(StartS) then
      EndS := EndS + StartS[i] + ','
        else
           EndS := EndS + Start[i];
end;

или

var
  StartS: String;
  i, n: Integer;
begin
  StartS := Edit1.Text;
  n := 1;
  for i := 1 to Length(StartS) - 1 do
  begin
    Insert(',', StartS, i + n);
    Inc(n);
  end;

[VeseloffS]

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

Имеется в виду чтоб числа брались из Edit. То есть тоже самое как в моем коде, только количество чисел не было ограниченно ячейками массива, а вводилось в поле Edit. А разделялись числа ","

[Evgeniy26]

Чем вам мой код не подходит?

[VeseloffS]

Просто не совсем понимаю куда его вставлять... Можно пожалуйста написать его сразу интегрировано в мой код.

[Evgeniy26]

дак вы вводите в edit цифры через запятую и вам надо разбить эти числа?

[VeseloffS]

Да нужно числа вводить в Edit в формате 6,7,8,0 (последнее 0), а остальное так как в моем коде.

[Evgeniy26]

const
  size=5;
var
  S: String;
  A, i, max, Ind : integer;
begin
  max := 0;
  S := Edit1.Text;
  for i := 1 to size do
  begin
    if i <> size then
    begin
      A := StrToInt(Copy(S, 1, Pos(',', S) - 1));
      Delete(S, 1, Pos(',', S));
    end else
      A := StrToInt(S);
    if abs(A) > max then begin
       max := abs(A);
       Ind := i;
     end;
  end;
  label1.caption:='Максимальный элемент:'+inttostr(A)+#13+'Порядковый номер:' +inttostr(Ind);

[VeseloffS]

Ввожу в Edit цифры в формате 5,6,7,8,0 Выводит такую ошибку: