файлы и строки

[Мирзали]

Задание 1.
а. Создать файл, содержащий сведения о пассажирах поездов . Каждая запись содержит поля: фамилия пассажира, номер поезда, пункт отправления , пункт прибытия, общий вес багажа. Количество записей - произвольное.
б. Написать программу, выдающую на печать следующую информацию:
фамилию пассажира и общий вес багажа; фамилию пассажира с номером поезда Х и пункт прибытия .

[Мирзали]

Program Examen;
Type passaj=Record
Familiya: String[40];
Np: String[40];
Po:string[40];
pprib:string[40];
allmass:byte;
End;
Var poezd: File Of passaj;
S: passaj;
N,I: Byte;
Begin
Assign(poezd,'FM.DAT'); Rewrite(poezd);
Write('kolihestvo passjirov v poezde?');
ReadLn(N) ;
For I:=1 To N Do
Begin
Write (i:1, '-y,Familiya'); ReadLn(S.Familiya);
Write('Np:'); ReadLn(S.Np);
Write('punkt otpravleniya:'); ReadLn(S.Po);
write('punkt pribitiya:'); readln(S.Pprib);
write('obshiy vas bagaja:'); readln(S.allmass);
Write(poezd,S)
End;
WriteLn('formirovanie fayla zaversheno!');
Close(poezd);
End.

[Мирзали]

помогите докончить программу пожалуйста.

[Мирзали]

Program Examen;
 Type passaj=Record
 Familiya: String[40];
 Np: String[40];
 Po:string[40];
 pprib:string[40];
 allmass:byte;

 End;
 Var poezd: File Of passaj;
 S: passaj;
 z:string;
 N,I: Byte;
 Begin
 Assign(poezd,'D:\poezd.txt'); Rewrite(poezd);
 Write('kolihestvo passjirov v poezde?');
 ReadLn(N) ;
 For I:=1 To N Do
 Begin
 Write (i:1, '-y,Familiya'); ReadLn(S.Familiya);
 Write('Np:'); ReadLn(S.Np);
 Write('punkt otpravleniya:'); ReadLn(S.Po);
 write('punkt pribitiya:'); readln(S.Pprib);
 write('obshiy vas bagaja:'); readln(S.allmass);
 Write(poezd,S)
 End;
 WriteLn('formirovanie fayla zaversheno!');
 Close(poezd);
  reset(poezd);
  read(poezd);
writeln('vvedite familiyu passajira:');
readln(z);
write(poezd);
write(poezd,z,':');
for i:=1 to n do  begin
if z=s[i].familiya then    writeln(poezd,'familiya:',s[i].familiya,poezd,'obshiy ves bagaja:',s[i].allmass);
if z=s[i].familiya then    writeln(poezd,'familiya:',s[i].familiya,poezd,'nomer  poezda:',s[i].Np,poezd,'punkt pribitiya:,s[i].Pprib);
close(poezd);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Мирзали]

исправь пожалуйста ошибку в этой строке write(poezd,z,':');

[Serge_Bliznykov]

Var poezd: File Of passaj;

файл poezd типизированный (т.е. элементами этого файла являются данные определённого типа (структуры)

Это означает, что писать (и читать) в этот файл можно только данные этого типа. Впрочем, в этой строчке

Write(poezd,S)

вы так и делаете (это правильно!)

а вот что Вы хотели добиться этой строчкой
write(poezd,z,':');
- непонятно..

окончание должно быть примерно таким:

  WriteLn('formirovanie fayla zaversheno!');
  Close(poezd);
  Reset(poezd);
  writeln('vvedite familiyu passajira:');
  readln(z);
  while not eof(poezd) do begin
     read(poezd, S);
     if z=S.Familiya then
         Writeln('familiya: ',S.Familiya, ' nomer  poezda: ', S.Np,' punkt pribitiya:', S.pprib);
  end;
  close(poezd);
  readln;

[Мирзали]

Спасибо Вам, Сергей.