ПОМОГИТЕ!!! НЕ МОГУ НИЧЕГО ПОНЯТЬ, КАК РЕШИТЬ ДОБАВИТЬ В ФАЙЛ ЗАПИСИ, ЗАПИСЬ, КОТОРУЮ ДОБАВЛЯЮ ВЫВОДИТЬСЯ, А ОСТАЛЬНОЕ КАКЯ-ТО ЕРУНДА.
Procedure dobavl(var f:stud);
var i,n,q,j:integer; a:spisoktel;b:mas;
begin reset(f);
writeln(' posle chego dobavit?'); readln(i);
j:=i;
seek(f,j+1);
while not eof (f) do begin
read(f,b[i]);
i:=i+1;
end;
seek(f,j+1);
write('familija studenta '); readln(a.famil);
write('imja studenta '); readln(a.imja);
write('otchestvo studenta '); readln(a.otch);
write('adres studenta: gorod '); readln(a.adres.gorod);
write('dom '); readln(a.adres.dom);
write('nomer telefona '); readln(a.adres.nomertel);
write(f,a);
for q:=j to i do
write(f,b[q]);
close(f);
end;

На первый взгляд вроде как верно, вот только

Цитата

for q:=j to i do write(f,b[q]); close(f);

Кажется лишнюю запись берешь с начала.

А вообще решение сложное у тебя - надо попробовать скомпилить пример, попробовать

1) А какой размер массива b:mas?

Т.е. Вы используете статический массив, тип которого определен примерно так
mas:array[1..100] of stud;

Если число записей в файле больше размера в массиве (в данном случае > 100), то проблемы гарантированы (особенно, если отключена проверка выхода за границы массива)

2) А кто сказал, что тип stud эквивалентен типуspisoktel?
А посмотрите, что Вы делаете - записываете в типизированый файл (тип stud) переменную типа spisoktel!!!! А еще, убедитесь, что тип элементов массива совпадает с типом файлов!!

Я тут кое-что похожее наметал. Посмотрите, может поможет!

Код

uses crt; type stud=record       famil:string;       imja:string;       otch:string;       gorod:string;       dom:string;       nomertel:string;     end; var f:file of stud; {добавление записей} procedure Add(fn:string); var i:integer;    rec:stud;    size:integer; begin  assign(f,fn);  reset(f);  size:=FileSize(f);  if size<>0 then seek(f,size);  write('Фамилия студента: '); readln(rec.famil);  write('Имя студента: '); readln(rec.imja);  write('Отчество студента: '); readln(rec.otch);  write('Адрес студента: город: '); readln(rec.gorod);  write('Дом: '); readln(rec.dom);  write('Номер телефона: '); readln(rec.nomertel);  write(f,rec);  close(f); end; {создание файла} procedure Create(fn:string); begin  assign(f,fn);  rewrite(f);  close(f);  Writeln('Файл '+fn+' успешно создан!'); end; {просмотр записей} procedure View(fn:string); var rec:stud;    i:integer; begin  writeln;  writeln;  assign(f,fn);  reset(f);  i:=0;  while not eof(f) do    begin      i:=i+1;      read(f,rec);      writeln('Запись №',i);      write('Фамилия студента: '); writeln(rec.famil);      write('Имя студента: '); writeln(rec.imja);      write('Отчество студента: '); writeln(rec.otch);      write('Адрес студента: город: '); writeln(rec.gorod);      write('Дом: '); writeln(rec.dom);      write('Номер телефона: '); writeln(rec.nomertel);      writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');    end;  close(f); end; begin  clrscr;  Create('data.pas');  Add('data.pas');  Add('data.pas');  View('data.pas');  readkey; end.

Procedure dobavl(var f:stud);
var i,n,q,j:integer; a:spisoktel;b:mas;
begin reset(f);
writeln(' posle chego dobavit?'); readln(i);
j:=i;
seek(f,j+1);
while not eof (f) do begin
read(f,b[i]);
i:=i+1;
end;
seek(f,j+1);
write('familija studenta '); readln(a.famil);
write('imja studenta '); readln(a.imja);
write('otchestvo studenta '); readln(a.otch);
write('adres studenta: gorod '); readln(a.adres.gorod);
write('dom '); readln(a.adres.dom);
write('nomer telefona '); readln(a.adres.nomertel);
write(f,a);
for q:=j to i do
write(f,b[q]);
close(f);
end;

_____ - не забывай, что первая запись в файле seek(f,0)!!!
_____ - у тебя выводится на две записи больше, т.к. последняя i - была, когда eof (f)=true, и начинать цикл надо со значения j+1;
И действительно...

Цитата

А кто сказал, что тип stud эквивалентен типуspisoktel?