файлы

[Александр16]

Задание
Изменить содержание 3 записей,введя для заданного района и номера библиотеки новое количество книг.Распечатать содержимое новых записей.
Помогите пожалуйста исправить ошибку процедура poisk номер 3.

program ggg;
uses crt;
Type st=record
 rayon:string[20];
       nom,obkol,kol: integer;
 end;
var
 f1:file of st;
k,y,n,i,pnom,nay:integer;
prayon:string[25];
 
a:array [1..3] of st;
 
   procedure vvod;
 begin
clrscr;
        rewrite(f1);
        n:=0;
        gotoxy(2,2);
        Write('Район');
        gotoxy(10,2);
        write(' № библиотеки');
        gotoxy(26,2);
        write('Об.кол.книг в биб');
        gotoxy(46,2);
        write('количество книг у читателей');
    for i:=1 to 3 do
    begin
with a[i] do
 begin
   n:=n+1;
   gotoxy(3,4*n+1);
   readln(rayon);
   gotoxy(12,4*n+1);
   readln(nom);
   gotoxy(35,4*n+1);
   readln(obkol);
   gotoxy(55,4*n+1);
   readln(kol);
 end;
   write(f1,a[i]);
    end;
close(f1);
end;
   procedure vivod;
   
begin
    clrscr;
 
reset(f1);
       n:=0;
        gotoxy(2,2);
         Write('район');
        gotoxy(10,2);
         write('№ библиотеки');
        gotoxy(26,2);
         write('об.кол.книг в библ');
        gotoxy(46,2);
         write('количество книг у читателей');
 
    for i:=1 to 3 do
  begin
  with a[i] do
 begin
    read (f1,a[i]);
   n:=n+1;
   gotoxy(3,4*n+1);
   writeln(rayon);
   gotoxy(12,4*n+1);
   writeln(nom);
   gotoxy(35,4*n+1);
   writeln(obkol);
   gotoxy(55,4*n+1);
   writeln(kol);
   end;
    end;
 
close(f1);
       readkey;
    end;
 
   procedure poisk;
   begin
     clrscr;
     reset(f1);
     readln(prayon);
     readln(pnom);
     for i:=1 to 3 do
      begin
         read (f1,a[i]);
         If (a[i].rayon = prayon) and (a[i].nom = pnom) then
         nay:=i;
         end;
         begin
         
      gotoxy(3,4);
   writeln(a[nay].rayon);
   gotoxy(12,4);
   writeln(a[nay].nom);
   gotoxy(35,4);
   writeln(a[nay].obkol);
   gotoxy(55,4);
   writeln(a[nay].kol);
         end;
        begin
 
         readln (a[nay].obkol);
              write(f1,a[nay]);
         readln (a[nay].kol);
            write(f1,a[nay]);
        end;
 
 
      close(f1);
    end;
 
    begin
        Assign(f1,'C:\basfile.txt');
        k:=0;
 
repeat
 
   writeln(' ');
  writeln('1.Создание файла');
  writeln('2.Просмотр данных');
  writeln('3.Редактирование');
  writeln('4.Выход');
  write('Ваш выбор:');
  readln(y);
  case y of
   1:vvod;
   2:vivod;
   3:poisk;
   4:k:=1;
   end;
 until k=1;
end.

[Alex11223]

Ошибка-то в чем?
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[Александр16]

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

Ошибка-то в чем?
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

поиск не правильно работает