Работа с файлами

Program File_f1;
var
f1 : file of real;{файловая переменная }
 m: char
st,s: string;
x,y,z,v,k: real;
begin
writeln('Введите путь к файлу file.dat');
readln(s);
assign(ff,s);  {связать с файлом file.dat файловую переменную f1  }
reset(ff);    {открытие файла для чтения}
Seek(f1, 0) {устанавливам указатель на начало файла}
while not eof (f1) do { пока не конец файла  f1}
begin
 {
 
 тут ступр
 
 }
 
end;
close (f1); { закрыть файл  для чтения}
end .

var f: file of real;
    i: longword;
    x, y, z, v, w: real;
begin
  assign(f, 'file.dat');
  reset(f); {открытие файла для ЧТЕНИЯ И ЗАПИСИ, если файла ещё нет, здесь будет ошибка}
//  writeln('Содержимое файла:');} {для контрольной печати}
  for i := 0 to filesize(f) div 4 - 1 do {читаем по 4 переменных}
    begin
      seek(f, i * 4); {на позицию, кратную 4}
      read(f, x); {читаем 4 переменных}
      read(f, y);
      read(f, z);
      read(f, v);
//      writeln(x:19, ' ', y:19, ' ', z:19, ' ', v:19);} {для контрольной печати}
      w := x + y + z + v; {производим какое-то действие}
      seek(f, i); {на позицию, кратную 1}
      write(f, w) {пишем в файл (и затираем то, что было в этой позиции!)}
    end;
  truncate(f); {обрезаем файл с позиции, следующей за последней записью}
{для контрольной печати}
{  reset(f); 
  writeln('Преобразованный файл:');
  for i := 0 to filesize(f) - 1 do
    begin
      read(f, x);
      write(x:19, ' ')
    end;
}
  close(f);
//  readln {для контрольной печати}
end.

var f: file of real; {файловая переменная}
    i, n: longword;
    x, y, z, v, w: real;
begin
  assign(f, 'file.dat');
  write('n = ');
  readln(n);
  rewrite(f);
  writeln('Введите элементы файла:');
  for i := 1 to n do
  begin
    write('x', i, ' = ');
    readln(x);
    write('y', i, ' = ');
    readln(y);
    write('z', i, ' = ');
    readln(z);
    write('v', i, ' = ');
    readln(v);
    write(f, x, y, z, v)
  end;
  close(f)
end.

var
  s: String;
  p, e: Integer;
  x, y, z, v: Real;
  f, g: Text;
begin
  Assign(f,'data.txt'); Reset(f);
  Assign(g,'data.tmp'); Rewrite(g);
  while not EoF(f) do begin
    ReadLn(f,s);
    p:=Pos(',',s); Val(Copy(s,1,p-1),x,e); Delete(s,1,p);
    p:=Pos(',',s); Val(Copy(s,1,p-1),y,e); Delete(s,1,p);
    p:=Pos(',',s); Val(Copy(s,1,p-1),z,e); Delete(s,1,p);
    Val(s,v,e);
    { пересчитываем x,y,z,v }
    WriteLn(g,x,',',y,',',z,',',v);
  end;
  Close(g); Close(f);
  Erase(f); Rename(g,'data.txt');
end.