Прочитать из текстового файла А все записанные в него целые числа, преобразовать их в вещественные и вывести в текстовый файл В по 4 числа в строку — Pascal(Паскаль)

program EXAMPLE16;       
var F1, F2: Text;        
X: Real;         
i: Integer;      
begin    
Assign(F1, 'С:\А.txt');  
Assign(F2, 'C:\В.txt');       
Reset(F1);                
Rewrite(F2); 
while (not(EOF(F1))) do  
   begin
         for i := 1 to 4 do               
              begin    
                    Read(Fl, X);     
                    Write(F2, X: 5)      
              end;     
        WriteLn(F2); 
   end;     
Close(F1);       
Close(F2);        
end;      
end.