Ввести строку символов,в которой задана последовательность целых чисел (возможно со знаком), разделенных

[killoff1234]

Помогите доделать задачу. дальше нет никаких мыслей.

Задача: Ввести строку символов,в которой задана последовательность целых чисел (возможно со знаком), разделенных пробелами. Вывести номера некорректно записанных чисел.

вот что есть:

var
str:string;
L:byte;
Tru:boolean;
i:integer;
begin
writeln ('ввод строки');
readln(str);
L:=length(str);
Tru:=L>0;
while Tru and (L>0) do begin Tru:=str[L] in ['0'..'9',' '];
Dec(L) end;
if Tru then writeln('правильно') else writeln('неправильно');
writeln(str[i]);
end.