Как сделать ввод дробных чисел

uses
  graphabc;
 
const
  matrix: array [1..4, 1..4] of char = (('7', '8', '9', '/'),   //матрица калькулятора
                                        ('4', '5', '6', '*'),
                                        ('1', '2', '3', '-'),
                                        ('C', '0', '=', '+'));
 
var
  c: char;
  s, a, b, n1: string;
  x1, y1, s1, s2: real;
//вывод "формы"
procedure View1;
begin
  rectangle(0, 0, 200, 100);           //Поле вывода значений
  line(0, 60, 200, 60); //Линия разделения
  setfontsize(20);
  for var i := 1 to 4 do
    for var j := 1 to 4 do
      roundrect(i * 50 - 50, j * 50 + 100, i * 50, j * 50 + 50, 20, 20);
end;
//вывод подписей
procedure View2;
begin
  for var i := 1 to 4 do
    for var j := 1 to 4 do
      textout(i * 50 - 30, j * 50 + 60, matrix[j, i]);
end;
 
procedure KeyDown(key: integer);
label r;
begin
  if key in [48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105] then begin
    case key of
      48: c := '0';
      49: c := '1';
      50: c := '2';
      51: c := '3';
      52: c := '4';
      53: c := '5';
      54: c := '6';
      55: c := '7';
      56: c := '8';
      57: c := '9';
      96: c := '0';
      97: c := '1';
      98: c := '2';
      99: c := '3';
      100: c := '4';
      101: c := '5';
      102: c := '6';
      103: c := '7';
      104: c := '8';
      105: c := '9';
    end;
    s := s + c;
    a := s;
    textout(193 - (length(a) * 15), 63, a);
    y1 := strtoint(a);
    while (s[1] = '0') and (length(s) > 1) do delete(s, 1, 1);
  end
    else
  if key in [111, 106, 109, 107] then begin
    b:=a;
    x1:=strtoint(b);
    s := '';
    case key of
      111: n1 := '/';
      106: n1 := '*';
      109: n1 := '-';
      107: n1 := '+';
    end;
    rectangle(0, 0, 200, 100);           //Поле вывода значений очищаем
    line(0, 60, 200, 60); //Линия разделения
    textout(193 - (length(a) * 15), 29, a);
    textout(1, 63, n1);
    end
    else
  if key = 13 then 
  begin
    rectangle(0, 0, 200, 100);           //Поле вывода значений очищаем
    line(0, 60, 200, 60); //Линия разделения
    textout(193 - (length(a) * 15), 29, a);   //выводим число на экран
    textout(193 - (length(b) * 15), 4, b);
    textout(1, 29, n1);//выводим символ на экран
    textout(1, 63, '=');   //выводим число на экран
    if n1 = '/' then begin if y1=0 then begin SetFontSize(13); textout(1, 70, 'На ноль делить нельзя!!'); exit end else s1 := x1 / y1; end;
    if n1 = '*' then s1 := x1 * y1;
    if n1 = '+' then s1 := x1 + y1;
    if n1 = '-' then s1 := x1 - y1;
    s2:=length(floattostr(s1));
    if s2<=10 then textout(193 - (length(floattostr(s1)) * 15), 63, floattostr(s1)) else textout(43, 63, floattostr(s1));
  end;
  if key = 67 then begin
    s := ''; rectangle(0, 0, 200, 100); line(0, 60, 200, 60); //Линия разделения
  end;
end;
 
procedure mousedown(x, y, mb: integer);
begin
  if mb = 1 then
  begin
    if (x > 0) and (y > 0) and (x < 200) and (y < 100) then exit;
    if matrix[(y - 50) div 50, (x + 50) div 50] in ['0'..'9'] then //если нажата цифра - надо "собирать число из запчастей", иначе надо переходить к сборке следующего
    begin
      if matrix[(y - 50) div 50, (x + 50) div 50] in ['C'] then 
      begin
        s := '';
        rectangle(0, 0, 200, 100);
        line(0, 60, 200, 60); //Линия разделения
      end;
      s := s + matrix[(y - 50) div 50, (x + 50) div 50];   //собираем число - к существующей строке добавляем цифру справа
      while (s[1] = '0') and (length(s) > 1) do delete(s, 1, 1);
      textout(193 - (length(s) * 15), 63, s);    //выводим все число
      b := s;
      x1 := strtoint(b);
    end
    else
    begin
      if matrix[(y - 50) div 50, (x + 50) div 50] in ['C'] then begin
        s := ''; rectangle(0, 0, 200, 100); line(0, 60, 200, 60); //Линия разделения
      end;
      if matrix[(y - 50) div 50, (x + 50) div 50] in ['+', '-', '*', '/'] then
      begin
        rectangle(0, 0, 200, 100);           //Поле вывода значений очищаем
        line(0, 60, 200, 60); //Линия разделения
        textout(193 - (length(b) * 15), 29, b);   //выводим число на экран
        n1 := matrix[(y - 50) div 50, (x + 50) div 50];
        textout(1, 63, n1); 
        a := s; //в дальнейшем, если будут дробные числа 0,254, придется заменить на strtofloat
        y1 := strtofloat(a);
        s := ''; //здесь запуск обработки нажатия кнопки - то есть переход к вычислениям
      end
      else
      if matrix[(y - 50) div 50, (x + 50) div 50] in ['C'] then 
      begin
        s := '';
        rectangle(0, 0, 200, 100);
        line(0, 60, 200, 60); //Линия разделения
      end
    else;
      begin
        if matrix[(y - 50) div 50, (x + 50) div 50] in ['='] then
        begin
          rectangle(0, 0, 200, 100);           //Поле вывода значений очищаем
          line(0, 60, 200, 60); //Линия разделения
          textout(193 - (length(b) * 15), 29, b);   //выводим число на экран
          textout(193 - (length(a) * 15), 4, a);
          textout(1, 29, n1);//выводим число на экран
          textout(1, 63, '=');   //выводим число на экран
          if n1 = '/' then begin if x1=0 then begin SetFontSize(13); textout(1, 70, 'На ноль делить нельзя!!'); exit end else s1 := y1 / x1; end;
          if n1 = '*' then s1 := x1 * y1;
          if n1 = '+' then s1 := x1 + y1;
          if n1 = '-' then s1 := y1 - x1;
          s2:=length(floattostr(s1));
          if s2<=10 then textout(193 - (length(floattostr(s1)) * 15), 63, floattostr(s1)) else textout(43, 63, floattostr(s1));
        end
          else 
        if matrix[(y - 50) div 50, (x + 50) div 50] in ['C'] then 
        begin
          s := ''; rectangle(0, 0, 200, 100); 
          line(0, 60, 200, 60); //Линия разделения
        end
      end;
    end;
  end;
end;
 
 
begin
  SetWindowCaption ('Калькулятор');
  SetWindowIsFixedSize(true);
  s := '';
  OnKeyDown := KeyDown;
  s := '';
  setwindowsize(200, 300);
  View1;
  View2;
  onmousedown := mousedown;
end.