Оператор приєднання with

[--Sashok--]

Придумайте сюжет, структуру запису і складіть програму (із використанням оператора приєднання with) опрацювання відповідних даних (масиву записів) згіджно з темою сюжету.

program hobbi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const nn=100;
       type drug=record
nomer: integer;
prizvusche: string[20] ;
name: string[10];
hobbi: string [30];
adress: string [50];
       end;
var dru:array [1..nn] of drug;
     n: integer;
     i: integer ;
     s: string;
     k: integer;
begin
    write('Vvedit kilkist druziv: '); readln (n);
    writeln('Vvedit ' ,n,'druziv');
    writeln;

    for i:=1 to n do
begin
with dru[i] do
    dru[i].nomer:=i;
    writeln('Nomer druga' , dru[i].nomer);
    write ('Prizvusche:   '); readln (dru[i].prizvusche);
    write ('Imya:   '); readln (dru[i].name);
    write ('Hobi:    '); readln(dru[i]. hobbi);
    write ('Adresa:      '); readln(dru[i]. adress);
     writeln;
end;

write('Yake hobbi vas zikavut?   '); readln (s);
writeln;
k:=0;
for i:=1 to n do
   if dru[i].hobbi=s
    then begin
        with dru[i] do
               writeln ('  ',dru[i].nomer, ' ',dru[i].prizvusche, ' ',
               dru[i].name, ' ',dru[i]. hobbi);
               k:=k+1;
end;

writeln;
write ('Kilkist druziv z odnakovum hobbi ',s,' -',k);
readln
end.

Помогите плизз. когда я убираю dru[i]. то пишет что нигде не прописано nomer hobbi prizvusche итд

[Бинари]

Оператор with работает только с одним оператором. То есть надо

with <...> do
begin
<...>
end;

[--Sashok--]

значит надо у меня with и бегин поменять местами?

[--Sashok--]

Сообщение от Бинари

Оператор with работает только с одним оператором. То есть надо

with <...> do
begin
<...>
end;

Спасибо большое сделал, получилось