Используя только литерный ввод, ввести вещественное число, записанное в виде: d.ddE-d, и присвоить веществ. переменной y

begin
  var y:=StrToFloat(ReadlnString);
  writeln(y);
end.

var s:string;
    y:real;
 begin
 writeln('Введите число в экспоненциальной форме вида d.ddE-d');
 readln(s);
 y:=strtofloat(s);
 write('y=',y);
 end.

uses crt;
var c:char;
    w:real;
    i,s:byte;
begin
writeln('Введите число в формате d.ddE-d');
w:=0;
i:=1;
repeat
c:=readkey;//читаем код клавиши
if((c='.')and(i=2))//если 2 точка
or((c='E')and(i=5))//если 5 буква Е(латинская)
or((c='-')and(i=6))then//если 6 минус 
 begin//нормально
  write(c);//выводим
  i:=i+1;//дальше
 end
else if ((c in['0'..'9'])and(i in [1,3,4,7])) then//если 1,3,4,7 цифра
 begin//нормально
  write(c);//выводим
  //из первых 3 цифр составляем число
  if i in [1,3,4] then w:=w*10+strtoint(c);//умножаем число на 10 и прибавляем еще цифру
  if i=7 then s:=strtoint(c);//запоминаем 7 цифру
  i:=i+1;//дальше
 end
else c:=#0;//если ввели не то, то не считаем 
if i=8 then writeln;//все ввели, на новую строку
until i>7;
w:=w/100/power(10,s);//делим число на 100 и на 10^s
writeln(w);//выводим
end.