Правильная запись

var
  s:string;
  kt,k,i,num:integer;
begin
  kt := 0;
  readln(s);
  if(s[1]='+')or(s[1]='+')then num := 2
    else num := 1;
  k := pos(' ',s);
  while(k>0)do begin
    delete(s,k,1);
    k := pos(' ',s);
  end;
  for i := num to length(s)do begin
    if(s[i]='.')then inc(kt);
    if not((s[i]='+')or(s[i]='-')or(s[i]in['0'..'9'])or(s[i]='e')or(s[i]='.'))then begin
      writeln('ILLEGAL');
      exit;
    end;
    if(s[i]='.')then if not((s[i-1] in['0'..'9'])and(s[i+1] in['0'..'9']))then begin
      writeln('ILLEGAL');
      exit;
    end;
    if(s[i]='e')then begin
      if not((((s[i-1]='.')and(s[i-2]in ['0'..'9']))or(s[i-1]in['0'..'9']))and((s[i+1]='-')or(s[i+1]='+')))then begin
        writeln('ILLEGAL');
        readln;
        exit;
      end;
    end;
  end;
  if(kt>0)then writeln('LEGAL')
    else writeln('ILLEGAL');
  readln;
  readln;
end.

var s,x:real;
     k:integer;
begin
readln(s);
val(s,x,k);
if k=0 then write('LEGAL') else write('ILLEGAL');

s:string; // <--
x:real;