С клавиатуры вводится строчка. Проверьте, может ли эта строка быть записью

Программка считает числом выражение, если:
- символ минус или плюс находятся перед цифрами;
- точка находится на втором или предпоследнем месте;
- в записи не считая символов "+", "-" и точки имеются только числа 0..9.

program digits;
var s: string;
flag, p: byte;
begin
write(Введите строчку: );
readln(s);
p:= 1;
for i: integer:= 1 to length(s) do
begin
case ord(s[i]) of
43,45: if i = 1 then flag := 1 else flag := 0;
46: if (igt;1) and (ilt;length(s)) then flag := 1 else flag := 0; 
48..57: flag := 1 
else flag:=0
end;
p:=p * flag
end;
writeln();
if p = 1 then writeln(Строчка может быть десятичным числом.)
else writeln(Строка не может быть десятичным числом.)
end.