До запись в файл.

[Leshii]

Program Путеводитель;
 Uses crt;
  Type
  oblast=record
  Номер:integer;
  Название области:string[20];
  Название_обласного_центра:string[20];
  Площадь:integer;
  Количество_населения:longint;
  end;
   file_oblast=file of oblast;
   var
   t:file_oblast;
   name:string;
   Procedure vvod_oblasti (var a: oblast);
    begin
     writeln('Введите номер,названи области,название обласного центра,площадь области и количество населения');
     with a do
     begin
     readln(Номер);
     readln(Название области);
     readln(Название_обласного_центра);
     readln( Площадь);
     readln(Количество_населения);
     end;
    end;
    Procedure Vvod_file(var t:file_oblast);
    var i,n:byte;
        a:oblast;
      begin
	    rewrite(t);
		  writeln('Введите количество записей');
		  readln(n);
		for i:=1 to n do
		 begin
		      begin
          Vvod_oblasti(a);
          write (t, a);
     end;
     readln;
end;
end;
Procedure vivod_zapisi (a:oblast);
begin
     writeln(a.номер: 10);
     writeln(a.название_области: 0);
     writeln(a.название обласного центра: 0);
     writeln(a.Площадь: 0);
     writeln(a.Количество_населения: 0);
end;
procedure shapka;
begin
     textcolor (5);
     writeln('Номер': 10);
     writeln('Название области': 0);
     writeln('Название обласного центра': 0);
     writeln('Площадь': 0);
     writeln('Количество_населения': 0);
     textcolor (15);
end;
procedure VuVod_file (var t: file_oblast);
var n, i: byte;
    a:oblast;
begin
     clrscr;
     shapka;
     reset (t);
     i:= 0;
     while not eof (t) do
     begin
          seek (t, i);
          read (t, a);
          vuvod_zapusu (a);
          i:= i+1;
     end;
     close (t);
     readln;
end;
procedure kruteruu (var t:file_oblast; k:longint);
var a: oblast;
    i: byte;
begin
     writeln('Введите количество населения');
     readln(k);
     reset (t);
     i:=0;
     clrscr;
     shapka;
     while not eof (t) do
     begin
     seek (t, i);
     read (t, a);
     if (a.Количество_населения>=k) then vuvod_zapusu(a);
     i:= i+1;
     end;
     readln;
end;
procedure dopolnenue (var t: file_oblast);
 var a:oblast;
       begin
       reset(t);
       seek(t,fileSize(t));
       read(t, a);
     with a do
     ....
    end;
procedure menu (var t: file_oblast);
var k: byte;
begin
     repeat
     clrscr;
     writeln ('menu');
     writeln ('1: Создание записи');
     writeln ('2: Дополнение записи');
     writeln ('3: Критерий);
     writeln ('4: Вивести запись ');
     writeln ('5: exit ');
     write ('vash vubоr: ');
     readln (k);
     case k of
     1: vvod_file (t);
     2: Dopolnenue (t);  
     3: kruteriu (t,k);
     4: vuvod_file (t);
     end;
     until k = 5;
end;
begin
     clrscr;
     writeln ('vvedute Nazvanue: ');
     readln (name);
     assign (t, name);
     menu (t);
end.

Переводил некоторые моменты с кириллицы т.к. живу в Украине)
Программа работает.Единственный вопрос.Как правильно организовать до запись в файл(выделил красным),то есть чтобы после записи в файл я мог внести в него дополнительную инфу такого же рода(Номер,область и т.д.)?
Насколько я понял здесь надо применять

Seek(t,filesize(t))

чтобы можно было дописивать информацию начиная с последнего момента.
И кстати спасибо за прошлую помощь в написании программы.

[NetSpace]

AssignFile(t,Name);
Reset(t,1);
Seek(t,FileSize(t));
BlockWrite(F,p,1);//p - это некий записываеемый символ
CloseFile(F);

при желании можно сделать запись нескольких символов или слов

[Serge_Bliznykov]

да Вы почти всё написали.
попробуйте так:

procedure dopolnenue (var t: file_oblast);
var i,n:byte;
        a:oblast;
begin
    reset(t);
    seek(t,fileSize(t));
    writeln('Введите количество добавляемых записей');
    readln(n);
    for i:=1 to n do	 begin
          Vvod_oblasti(a);
          write (t, a);
    end;
    Close(t);
    WriteLn('Готово. Для продолжения нажмите Enter');
    Readln
 end;