Registro de datos experimentales en un archivo de disco con el lenguaje Pascal

program enregistra_dues_magnituts_experimentals;
uses crt;
var
 file_name:string[30];
 file_variable:file of real;
 i:integer;
 magnitud_a,magnitud_b:real;
 temps_mesura:integer;

procedure pren_mesures;
 begin
   magnitud_a:=random;
   magnitud_b:=random;
end;


begin

  clrscr;
  randomize;

  writeln('durant quant de temps vols adquirir les dades (1..100) s. - ?');
  readln(temps_mesura);

  writeln('nom del fitxer de disc on les vols guardar ? ');readln(file_name);
  assign(file_variable,file_name);
  rewrite(file_variable);
  for i:=1 to temps_mesura do
    begin
      pren_mesures;
      write(file_variable,magnitud_a,magnitud_b); (* les guarda *)
    end;
  close(file_variable);
  writeln('...dades guardades...');
  repeat until keypressed;
end.

====

program llegeix_fitxer;
uses crt;
var
 file_name:string[30];
 file_variable:file of real;
 i:integer;
 a,b:real;

procedure espera;
begin
  repeat until readkey=chr(67);
end;


begin
  clrscr;
  writeln('nom del fitxer de dades  ? ');readln(file_name);
  assign(file_variable,file_name);
  reset(file_variable);
  i:=0;
  while not eof(file_variable) do
    begin
      i:=i+1;
      read(file_variable,a,b);
      writeln(a:10:2,b:10:2);
      if (i mod 10 = 0) then
        begin
          writeln('prem C per continuar ...');
          espera;
        end;
    end;
  close(file_variable);
  repeat until keypressed;
end.