[badtrips]

заполняю массив числами из одного большого числа с помощью остатка от деления и деления без остатка.программа выкидывает после ввода числа и пишет [Warning] Project2.dpr(27): Variable 'r' might not have been initialized.Что именно нужно подправить не понимаю,если размер массива задать вручную всё нормально.Подскажите!

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i,l,chislo:integer;
r:array of integer;
s:string;

begin
readln(chislo);
s:=IntToStr(chislo);
l:=length(s);
writeln(l);
for i:=1 to l do
  begin
  r[i]:=chislo mod 10;
  writeln(r[i]);
  chislo := chislo div 10;
  end;
readln;
end.

[NumLock]

Код:

begin
readln(chislo);
s:=IntToStr(chislo);
l:=length(s);
SetLength(r, l);
writeln(l);
for i:=1 to l do
  begin
  r[i]:=chislo mod 10;
  writeln(r[i]);
  chislo := chislo div 10;
  end;
readln;
end.

[badtrips]

Ура!
Теперь понял,спасибо.