Распечатать все числа, встречающиеся в заданном тексте. Опции

[tanjusha]

Распечатать все числа, встречающиеся в заданном тексте.

[tanjusha]

вот то что у меня получилось...ток там ошибка

program laba;
uses crt;
var
s:string;
a:array[1..20]of integer;
i,j:integer;
begin
writeln('Vvedite ctroky');
readln(s);
for i:=1 to length(s) do
if s[i]in['0'..'9'] then
s[i]:=s[i]+1;
writeln(s);
readln;
end.

М

tanjusha, просьба выполнять правила: помещай программный код в тэги! Выдели код и выбери нужный пункт в меню CODE в форме ввода мессаджа. Lapp

[Lapp]

вот то что у меня получилось...ток там ошибка

Какая именно ошибка? Приведи ее текст (что компилятор сказал).

[tanjusha]

Какая именно ошибка? Приведи ее текст (что компилятор сказал).

Error26: Type mismatch