Замените в файле вещественных чисел все элементы на их квадраты

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
System.SysUtils;
 
var
  f: file of real;
  i: integer;
  k, k1: real;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    assign(f, 'Файл вещественных чисел.dat');
    rewrite(f);
    repeat
      readln(k);
      write(f, k);
    until k = 0; //0 будет в конец записываться
    close(f);
    reset(f);
    while not eof(f) do
    begin
      read(f, k);
      write(k, ' ');
    end;
    close(f);
    reset(f);
    for i := 0 to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, k);
      k1 := sqr(k);
      seek(f, i);
      write(f, k1);
    end;
    close(f);
    writeln;
    reset(f);
    while not eof(f) do
    begin
      read(f, k);
      write(k, ' ');
    end;
    close(f);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.