[MegaPiha]

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

плиз помогите отцы программирования..заранее спасибо

Пока нашел ряд небольших ошибок.
1.

Код:

 S:=mas[i].fam+'  '+inttostr(mas[i].naz)+'  '+inttostr(mas[i].nomer)+'  '+inttostr(mas[i].time);

mas[i].naz - строковый, его не надо переводить из integer в string.
mas[i].fam - в типе TPoezd нет поля fam.
2.

Код:

 
procedure TForm1.Button2Click(Sender: TObject);
Begin
Var
I:integer;
S:string;

Зачем begin перед var?

3 .

Код:

 
 r:Tstud;

Что за тип данный TStud? Нигде не определен.

Дальше потом посмотрю. Спать пора.