Разделить программу на 2 части

[hojidor]

Первая программа для создания файла, вторая для считывания.
Задание: Создать файл, содержащий сведения о почтовой сортировке (город, улица, дом, квартира, кому, ценность). Определить сколько посылок отправлено в город S ценностью выше X рублей (вывести фамилии).

program mail;
uses crt;
type
  post = record
    city: string[50];
    street: string[50];
    block: string[10];
    apt: integer;
    recipient: string[255];
    cost: integer;
  end;
var
  i, num, x: integer; 
  f: file of post;
  delivery: post;
  buffer, s: string;
begin
  while num <= 0 do 
  begin
    write('Введите количество посылок: ');
    readln(num);
  end;
  assign(f, 'mail.txt');
  rewrite(f);
  for i := 1 to num do 
  begin
    with delivery do 
    begin
      write('Введите город для ', i, ' посылки: ');
      readln(city);
      write('Введите улицу для ', i, ' посылки: ');
      readln(street);
      write('Введите номер дома для ', i, ' посылки: ');
      readln(block);
      write('Введите номер квартиры для ', i, ' посылки: ');
      readln(apt);
      write('Введите получателя для ', i, ' посылки: ');
      readln(recipient);
      write('Введите ценность (руб.) для ', i, ' посылки: ');
      readln(cost);
    end;
    write(f, delivery);
  end;
  close(f);
  write('Введите город: ');
  readln(s);
  write('Введите ценность (руб.): ');
  writeln;
  readln(x);
  reset(f);
  i := 1;
  num := 0;
while not eof(f) do
  begin
    read(f, delivery);
    with delivery do 
    begin
      if (city = s) and (cost > x) then
        inc(num);
      writeln;
      writeln(i, ' посылка: ');
      writeln('Город: ', city);
      writeln('Улица: ', street);
      writeln('Номер дома: ', buffer);
      writeln('Номер квартиры: ', buffer);
      writeln('Получатель: ', recipient);
      writeln('Ценность: ', buffer);
    end;
    inc(i);
  end;
  writeln;
  writeln(num, ' посылок стоимостью выше ', x, ' руб. было отправлено в город ', s);
  readln;
end.

[Stilet]

program mail1;
uses crt;
type
  post = record
    city: string[50];
    street: string[50];
    block: string[10];
    apt: integer;
    recipient: string[255];
    cost: integer;
  end;
var
  i, num, x: integer; 
  f: file of post;
  delivery: post;
  buffer, s: string;
begin
  while num <= 0 do 
  begin
    write('Введите количество посылок: ');
    readln(num);
  end;
  assign(f, 'mail.txt');
  rewrite(f);
  for i := 1 to num do 
  begin
    with delivery do 
    begin
      write('Введите город для ', i, ' посылки: ');
      readln(city);
      write('Введите улицу для ', i, ' посылки: ');
      readln(street);
      write('Введите номер дома для ', i, ' посылки: ');
      readln(block);
      write('Введите номер квартиры для ', i, ' посылки: ');
      readln(apt);
      write('Введите получателя для ', i, ' посылки: ');
      readln(recipient);
      write('Введите ценность (руб.) для ', i, ' посылки: ');
      readln(cost);
    end;
    write(f, delivery);
  end;
  close(f);
end.

program mail2;
uses crt;
type
  post = record
    city: string[50];
    street: string[50];
    block: string[10];
    apt: integer;
    recipient: string[255];
    cost: integer;
  end;
var
  i, num, x: integer; 
  f: file of post;
  delivery: post;
  buffer, s: string;
begin

  assign(f, 'mail.txt');
  reset(f);

  write('Введите город: ');
  readln(s);
  write('Введите ценность (руб.): ');
  writeln;
  readln(x);
  reset(f);
  i := 1;
  num := 0;
while not eof(f) do
  begin
    read(f, delivery);
    with delivery do 
    begin
      if (city = s) and (cost > x) then
        inc(num);
      writeln;
      writeln(i, ' посылка: ');
      writeln('Город: ', city);
      writeln('Улица: ', street);
      writeln('Номер дома: ', buffer);
      writeln('Номер квартиры: ', buffer);
      writeln('Получатель: ', recipient);
      writeln('Ценность: ', buffer);
    end;
    inc(i);
  end;
  writeln;
  writeln(num, ' посылок стоимостью выше ', x, ' руб. было отправлено в город ', s);
  close(f);
  readln;
end.

Гут?

[hojidor]

Да, все хорошо. Спасибо.
Понял свою ошибку.

[Serge_Bliznykov]

Сообщение от hojidor

Но хотелось бы, чтобы в первой программе, еще файл сохранялся. Программа работает, но не понятно куда сохраняется.

файл сохраняется с именем 'mail.txt', который лежит там же, где Ваш исполняемый код (exe-шник).
Если у Вас какой-то Паскаль, которые не генерит exe-шники (Pascal ABC, например), то тогда лучше имя файла задать полное, с путём.
например,

  assign(f, 'C:\PASCAL\mail.txt');
  rewrite(f);
  for i := 1 to num do ....

p.s. да, кстати, я бы ОЧЕНЬ рекомендовал заменить расширение у данного файла, написать вместо .TXT что-то другое, более подходящее. Например, .DAT или .BIN или .REC или .PPP ... да всё, что угодно, только чтобы было понятно, что файлик НЕ ТЕКСТОВЫЙ, а двоичный!