Записи, помогите подкорректировать... Опции

[Светлана]

Здравствуйте! У меня 2 задачки по записям... Помогите пож-та немного исправить...
1) Среди работников данного предприятия найти тех, чья заработная плата за месяц является ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет с указанием их фамилии, зарплаты, стажа работы и должности.
Вот мой вариант решения...

Program Zapisi_7;
type
rabotnik_predpriyatiya=record
stazh:integer;
zar:integer;
fam:string[15];
dolzh:string[10];
end;
  var
  i,n: integer;
  anketa: rabotnik_predpriyatiya;
  r: file of rabotnik_predpriyatiya;
   begin
    assign(r,'anketa.dat'); reset( r ); { -> вот тут у меня высвечивается ошибка: File not found }
    write('Skolko dannyh vvodit');
    readln(n);
     for i:=1 to n do
       begin
           write('Vvedite familiu');
           readln(anketa.fam);
           write('Vvedite stazh raboty');
           readln(anketa.stazh);
           write('Vvedite velichinu mes. zarabotka');
           readln(anketa.zar);
           write('Vvedite dolzhnost');
           readln(anketa.dolzh);
           write(r,anketa);
           end;
       close( r );
   end.

Как в этой проге написать, чья зар. плата за месяц явл. ниже средней по предприятию???И как вывести фамилии тех, кто проработал более 10 лет? Помогите пож-та...

2) Распечатать фамилии тех учеников класса, которые являются хорошистами и отличниками по итогам года. Также узнать, насколько их средний балл отличается от среднего балла класса.

Program Zapisi_12;
type uchenik=record
fam:string[15];
ucheb_god:integer;
har:string[20];
end;
  var a:array[1..10] of uchenik;
  fin,fout:text;
  i,j:integer;
 begin
  assign(fin,'uch.pas');
  reset(fin); { -> тут опять эта же ошибка: File not found }
  i:=0;
   repeat
    i:=i+1;
    with a[i] do
    readln(fin,fam,ucheb_god,har);
   until eof(fin);
   close(fin);
    assign(fout,'hor_i_otl.pas');
    rewrite(fout);
     for j:=1 to i do
      if a[i].har='horoshisty i otlichniki' then
       writeln(fout,a[i].fam);
      close(fout);
 end.

И я не знаю как сравнить эти средние баллы...

Заранее большое спасибо за помощь!

[мисс_граффити]

А второй - fout - в него чтоли значения не сами должны выводиться???

Что значит - сами?
Ты же компьютеру нигде не сообщаешь, что туда должно вводиться. Откуда он знает, ЗАЧЕМ ты делаешь rewrite? А вывод весь у тебя идет только на экран...

[Светлана]

Что значит - сами?
Ты же компьютеру нигде не сообщаешь, что туда должно вводиться. Откуда он знает, ЗАЧЕМ ты делаешь rewrite? А вывод весь у тебя идет только на экран...

Эээээ, ну как объяснить... Ну дак ведь я вроде первую часть описала, все, закрыла файл... Потом описываю, что там во втором файле надо делать... И тож его закрываю... Значит фамилии и др. из первого списка (который я сама писала), которые удовлетворяют условиям из второго файла, должны переноситься во второй список..... Я вот так понимаю...


Ну я не знаю... вот, смотрите, работающая программа...
"Распечатать список тех учителей школы, которые преподают мат-ку и информатику, указать их стаж работы и недельную нагрузку".

Это сам список
 UCHIM.TXT ( 511 байт ) Кол-во скачиваний: 355


это прога
 Uchitelya.pas ( 735 байт ) Кол-во скачиваний: 359


и второй список..
 SPISOK.TXT ( 294 байт ) Кол-во скачиваний: 362


Я про учеников написала тоже самое, но у меня второй список пустой при выводе!!!

вот мой список!
 UCH1.PAS ( 212 байт ) Кол-во скачиваний: 422


вот прога!
 UCHENIK.PAS ( 518 байт ) Кол-во скачиваний: 363


вот список, в которй должно выводиться, но он пустой...



вот список, в который должно выводиться, но он пустой!
ха.. он даж не прикрепляется.. ну если прогу запустить, то он откроется!...