Организация работы с файлами. PASCALABC.NET

type point = record
  x,y: integer;
end;
 
begin
  var p: point; //буферная переменная для записи
  var f := CreateFile&<point>('input.dat'); //Создаем файл или открываем на перезапись
  for var i := 1 to 10 do begin (p.x, p.y) := (i, i*10); Write(f, p); Print(p) end; //заполняем файл
  f.Close; Println; //Закрываем файл
  
  f := OpenFile&<point>('input.dat'); // Открываем на чтение/запись
  (p.x, p.y) := (55,555); //новое значение пятой записи
  f.Position := 4; //перейти к пятой записи
  Write(f, p); //перезапись пятого элемента
  f.Close;
  
  ReadElements&<point>('input.dat').Println //содержимое файла на экран
end.

##
var f := CreateFileInteger('input.dat'); //Создаем файл или открываем на перезапись
Write(f,1,2,3,4,5); //заполняем файл
f.Close; //Закрываем файл
 
f := OpenFileInteger('input.dat'); // Открываем на чтение/запись
f.Position := f.Size; //перейти в конец файла
Write(f, 61, 62, 63); //дописать три элемента в конец файла
f.Close;
 
ReadElements&<Integer>('input.dat').Println //содержимое файла на экран