Напечатать целые числа, содержащиеся в строке Опции

[GolDen]

Прошу помочь мне с данной задачей. :-/
Напечатать целые числа, содержащиеся в строке.

GolDen

[GolDen]

Вот, что у меня получилось, а дальше никак не получается:

Код

Program l5;
uses crt;
const n=255;
var i:byte;
c:integer;
m:array[1..n] of integer;
s:string;
Begin
 clrscr;
 Writeln('Введите строку:');
 Readln(s);
 c:=1;
 for i:=1 to length(s) do
 if (s[i]>='0') or (s[i]<='9') then
  Begin
  m[c]:=s[i];
  c:=inc(c);
  End;

 for i:=1 to c-1 do
 Writeln(m[i]:6:3,'');

 Readkey
 End.

Необходим ли Const? Хочу находить число и записывать его в массив.

Сообщение отредактировано: volvo - 17.12.2004 13:05