Перевод строки в численный тип - Pascal ABC

var s,s1:string;
    a:array[1..100] of real;
    n,i,k1,k2,k3,p,d:integer;
begin
writeln('Введите строку из чисел, разделенных одним пробелом');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
if s[i]=',' then s[i]:='.';
n:=0;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  n:=n+1;
  a[n]:=0;
  if s1[1]='-' then k1:=2 else k1:=1;
  if pos('.',s1)>0 then//если число вещественное
   begin
    k2:=pos('.',s1)-1;//конец целой части
    k3:=length(s1); //конец дробной части
   end
  else
   begin //если целое
    k2:=length(s1);//конец целой части
    k3:=0; //дробной нет
   end;
  for i:=k1 to k2 do //делаемцелую часть
  a[n]:=10*a[n]+ord(s1[i])-ord('0');
  if k3<>0 then///если вещественное, делаем дробную часть
   begin
    p:=1;//показатель степени разряда
    d:=0;//значение
    for i:=k2+2 to k3 do
     begin
      d:=10*d+ord(s1[i])-ord('0');//составляем
      p:=p*10; //повышаем степень
     end;
    a[n]:=a[n]+d/p;//вычисляем дробную часть и прибавляем к целой
   end;
  if k1=2 then a[n]:=-a[n];
 end;
writeln('Массив чисел');
for i:=1 to n do
write(a[i],' ');
end.