не формируется массив записей

[misery24-7]

все время пишет что нет жильца с такой фамилией с которой ввожу,не понимаю в чем дело,помогите плиз

В гостинице имеется 15 двухместных номеров. Со¬ставить программу, которая заполняет и данные о жильцах и по фамилии определяет номер, где проживает жилец. Программа запрашивает фамилию жильца.
Если жильца с такой фамилией нет, об этом выдается сообщение.
Если жилец с такой фамилией в гостинице единственный, программа выдает фамилию жильца и номер проживания.
Если в гостинице проживает два или более жильцов с такой фамилией, про¬грамма дополнительно запрашивает инициалы.
При реализации программы использовать массив записей.
Входные данные: строка, в которой через разделитель указаны – номер проживания, фамилии. Символ разделителя слов выбрать самостоятельно.

program demo;
uses crt;
const
     nmax=30;
type
    persone=record
    fio:string;
    nomer:integer;
    end;
mas=array[1..nmax]of persone;
var
   st:string;
   cod:integer;
   l:integer;
   fam:string;
   i:integer;
   n:integer;
   m:mas;
   f:text;
   nomer:integer;
   procedure zagruzka(var f:text;var n:integer;var m:mas);
   begin
        n:=0;
        while not Eof(f) or (n<nmax) do
        begin
             readln(f,st);
             n:=n+1;
             if n>nmax then
             writeln('massiv zapolnen')
             else
                 begin
                      with m[n] do
                      begin
                           fio:=copy(st,1,pos(' ',st)-1);
                           val(copy(st,pos(' ',st)+1,2),nomer,cod);
                      end;
                 end;
        end;
   end;
        procedure poisk(n:integer;m:mas);
        begin
             l:=0;
             writeln('Vvedite familiu');
             readln(fam);
             with m[n] do
             begin
                  if fam=fio then
                  begin
                       l:=l+1;
                       writeln(l,'.',nomer);
                  end;
             end;
             if l=0 then
             writeln('Takogo jilca net')
             else
             writeln('Naideno',l,'zapisey');
             end;
begin
     assign(f,'t.txt');
     {$I-} reset(f); {$I+}
     if IOresult <>0 then
     begin
          writeln('faila net');
          repeat until keypressed;
          halt end;
zagruzka(f,n,m);
close(f);
writeln('poisk zapisey');
poisk(n,m);
end.

[TinMan]

КруглосуточноеНесчастье, у тебя две ошибки (больших). Я исправил обе, и снабдил комментами. Разберешься? Задачай вопросы.
Успехов тебе.

program demo;
uses crt;
const
     nmax=30;
type
    persone=record
    fio:string;
    nomer:integer;
    end;
mas=array[1..nmax]of persone;
var
   st:string;
   cod:integer;
   l:integer;
   fam:string;
   i:integer;
   n:integer;
   m:mas;
   f:text;
   nomer:integer;
   procedure zagruzka(var f:text;var n:integer;var m:mas);
   begin
        n:=0;
        while not Eof(f) and (n<nmax) do     // here, use AND
        begin
             readln(f,st);
             n:=n+1;
             if n>nmax then
             writeln('massiv zapolnen')
             else
                 begin
                      with m[n] do
                      begin
                           fio:=copy(st,1,pos(' ',st)-1);
                           val(copy(st,pos(' ',st)+1,2),nomer,cod);
                      end;
                 end;
        end;
   end;
        procedure poisk(n:integer;m:mas);
        var
          i: integer;                       // announcing i, needed for the loop
        begin
             l:=0;
             writeln('Vvedite familiu');
             readln(fam);
             for i:=1 to n do with m[i] do  // here, use the FOR loop
             begin
                  if fam=fio then
                  begin
                       l:=l+1;
                       writeln(l,'. ',nomer);
                  end;
             end;
             if l=0 then
             writeln('Takogo jilca net')
             else
             writeln('Naideno ',l,' zapisey');
             end;
begin
     assign(f,'t.txt');
     {$I-} reset(f); {$I+}
     if IOresult <>0 then
     begin
          writeln('faila net');
          repeat until keypressed;
          halt end;
zagruzka(f,n,m);
close(f);
writeln('poisk zapisey');
poisk(n,m);
end.

[misery24-7]

да,уже разобрался сам))забыл цикл написать
а еще необязательно в процедуре "i" обозначать,она у меня и так в основном варе была
но все равно спасибо за помощь)

[TinMan]

Сообщение от misery24-7

да,уже разобрался сам))забыл цикл написать

Молодец )

а еще необязательно в процедуре "i" обозначать,она у меня и так в основном варе была

По-видимому, ты используешь допотопный Turbo Pascal.. Сколько уже можно мучить старую дряхлую лошадь?.. Сжалься, отстрели..
Новый компилятор не даст тебе организовать цикл FOR внутри процедуры на глобальной переменной - и правильно сделает. Это ухудшает внутреннюю структуру программы, а также может быть причиной очень труднонаходимых ошибок (если вызов процедуры попадет в цикл). TP такие вещи не отслеживает, так что старайся делать это сам. Привыкай работать правильно.

Скачай себе FP (freepascal.org), и будет тебе щасьтее.. ))

[misery24-7]

ок,спасибо за советы)))))

[misery24-7]

а еще не подскажете как сделать так чтобы если два человека в гостинице с одинаковыми фамилиями,программа предлагала бы дополнительно ввести инициалы?

[TinMan]

Сообщение от misery24-7

а еще не подскажете как сделать так чтобы если два человека в гостинице с одинаковыми фамилиями,программа предлагала бы дополнительно ввести инициалы?

Для начала хорошо бы иметь эти самые инициалы в записи. В смысле, предусмотреть для них поле и организовать ввод. Сделай это, дальше посмотрим.

[misery24-7]

дада,я бы просто так не спрашивал,конечно они у меня есть)))
мне интересно как организовать сканирование на наличие одинаковых элементом массива)

вобще вот мой файл)

zaharova A.A*1
zaharovb A.B*1
zaharovc A.C*2
zaharovd A.D*2
zaharove A.E*3
zaharovf A.F*3
zaharovg A.G*4
zaharovh A.H*4
zaharovi A.I*5
zaharovj A.J*5
zaharovk A.K*6
zaharovl A.L*6
zaharovm A.M*7
zaharovn A.N*7
zaharovo A.O*8
zaharovp A.P*9
zaharovq A.Q*10
zaharovr A.R*10
zaharovs A.S*11
zaharovt A.T*11
zaharovu A.U*12
zaharovv A.V*12
zaharovw A.W*13
zaharovx A.X*13
zaharovy A.Y*14
zaharovz A.Z*14
zaharovaa A.A*15
zaharovbb A.B*15

помогитее!!!!!

[BDA]

Для начала:

persone=record
    fio:string;
    inic:string;
    nomer:integer;
    end;

Считывание:

fio:=copy(st,1,pos(' ',st)-1);
inic:=copy(st,pos(' ',st)+1,3);
val(copy(st,pos('*',st)+1,length(st)-pos('*',st)),nomer,cod);

Поиск:

procedure poisk(n:integer;m:mas);
var
inics:string;
i:integer;
        begin
             l:=0;
             writeln('Vvedite familiu');
             readln(fam);
			 for i:=1 to n do
			 begin
				with m[i] do
				begin
					if fam=fio then
					begin
                       l:=l+1;
                       writeln(l,'.',nomer);
					end;
				end;
			 end;
             if l=0 then
             writeln('Takogo jilca net')
             else
			 begin
				writeln('Naideno',l,'zapisey');
				writeln('Vvedite iniciali');
				readln(inics);
				for i:=1 to n do
				begin
					with m[i] do
					begin
						if (fam=fio)and(inic=inics) then
						begin
							writeln(nomer);
							exit;
						end;
					end;
				end;
			 end;
        end;

[misery24-7]

BDA,огромное вам спасибо за помощь!!!