паскаль,записи.

[Ам тя]

нужно вести фамилию,пол, и дату рождения
Вид обработки:выбор студентов заданного пола.
моя попытка (ы)

program zapis1;
type
      person=record
      familya:string;
      pol:string;
      Bith:record
        day: 1..31;
        mo:1..12;
        year:integer;
      end;
      end;
var student:array[1..10] of person;
    g,m:byte;
    n,i:integer;
begin
     write('vv chislo studentov');
       readln(n);
     for i:=1 to n do begin
       with student[i],bith,pol do begin
          writeln('vv familya');
          readln(familya);
                             writeln('vv poll g,m');
             readln(pol);
               writeln('DAY, MO, YEAR");
               readln(day, mo, year);
      end;
      For i:=1 to n do
      if student.pol:=g then
      writeln(i,')',famelya,':',g,'    ',day:7,'/',mo:2,'/',year:4 ) else
     ....
      readln;
      end.

[Rusl92]

Все верно только немного нужно переделать:

for i:=1 to n do begin
with student[i] do begin
writeln('vv familya');
readln(familya);
writeln('vv poll g,m');
readln(pol);
writeln('DAY, MO, YEAR");
readln(day, m, year);
end;
For i:=1 to n do
if student[i].pol:=g then
begin
with student[i] do
writeln(i,')',familya,':',g,' ',day:7,'/',mo:2,'/',year:4 )
end
 else
....
readln;
end.

почитайте, как пользоваться конструкцией with

[Ам тя]

у мя вопрос , что написать где точки х)

ой там Type

error 75 х_х

[Stilet]

что написать где точки

Да ничего. Просто оставить:

For i:=1 to n do
 if student[i].pol:=g then
   with student[i] do
    writeln(i,')',familya,':',g,' ',day:7,'/',mo:2,'/',year:4 )

readln;
end.

[Rusl92]

For i:=1 to n do
 if student[i].pol=g then //ссори, тут нужно вместо присвоить - "="
   with student[i] do
    writeln(i,')',familya,':',g,' ',day:7,'/',mo:2,'/',year:4 )

readln;
end.

[Stilet]

//ссори, тут нужно вместо присвоить - "="

Согласен. Я туда не смотрел.