Преобразование integer в real

uses CRT;
var a:real;
    b:integer;
begin
  ClrScr;
  writeln('vvedite Q v decatichnoj forme');
  readln(a);
  writeln('vvedite R v pokazatelnoj forme');
  readln(b);
  writeln;
  writeln('Resulyatu rabotu');
  writeln('Q v pokazatelnoj forme ',a);
  writeln('R v desytichnoi forme ',b)
   end.

uses crt;
var a,b,k,s:integer;
begin
clrscr;
write('a=');
readln(a);
b:=a;
k:=0;s:=1;
while b>1 do
 begin
  b:=b div 10;
  k:=k+1;
  s:=s*10;
 end;
write('a=',a div s,'.',a mod s,'*10^',k);
readln
end.

uses crt;
var a,b,k,s:longint;
begin
clrscr;
write('a=');
readln(a);
b:=abs(a);
k:=0;s:=1;
while b>10 do
 begin
  b:=b div 10;
  k:=k+1;
  s:=s*10;
 end;
if a>0 then write('a=',a div s,'.',a mod s,'*10^',k)
else write('a=',a div s,'.',abs(a) mod s,'*10^',k);
readln
end.

uses crt;
const cf=['0'..'9','.','-'];{разделитель целой и дробной части-точка}
var a,c,d:string;
    i,k:byte;
begin
clrscr;
repeat
write('a=');
readln(a);
k:=0;
for i:=1 to length(a)do
if not (a[i]in cf) then
 begin
  k:=1;
  break;
 end;
until (pos('.',a)>1)and(k=0);
c:=copy(a,1,pos('.',a)-1);
d:=copy(a,pos('.',a)+1,255);
k:=length(a)-pos('.',a);
a:=c+d+'*10^-';
write('a=',a,k);
readln
end.