моделирование работы с базой данных

[Даша Amber]

Здравствуйте! вот задали написать программку в турбо паскале на тему "моделирование работы с базой данных",а я даже не могу создать нормальной таблички.задание такое: ведомость на выдачу стипендии пяти студентам(фамилия,номер группы,номер паспорта,сумма,признак получения ).вывести выплаченную сумму и фамилии студентов не получивших стипендии. помогитезаранее спасибо!
nastydevil---91@mail.ru

[Stilet]

Ты умеешь работать с типом record? Учили уже такой?

[Даша Amber]

нет еще не изучали. могу показать,что я написала
1.jpg
2.jpg
3.jpg
4.jpg
если Вам не сложно можете посмотреть

[Son Of Pain]

Код в картинках - новое слово в науке.

[Даша Amber]

ну просто там так много написано

[Stilet]

могу показать,что я написала

Ну дык то что ты написала вы еще не изучали получается?
Приводи код в текстовом виде.

[Даша Amber]

как Вам объяснить,нам лектор этого не давал,а лабораторную уже сдавать надо и в общем считается что это мы уже должны знать.

program LabWork;
const
  w1=20;w2=8;w3=12;w4=10;w5=19;
  Lin1='------------------------------------------------------------------------|';
  Lin2='| ФИО          |Группа | №Паспорта |  Сумма | Признак получения|';
  Lin3='|-----------------------------------------------------------------------|';
  Lin4='|-----------------------------------------------------------------------|';
type
  TStudent=record
                   Name:string;
                   Group:10..10000;
                   Number:Byte;
                   Sum:Integer;
                   SingOfGetting:0..1;
             end;
var
  FDat,FRes:Text;
  FStd:file of TStudent;
  Stud:TStudent;
  i,n:0..10;
  SofG:string[19];
begin
  Assign(FDat,'LW9Dat.txt');Reset(FDat);
  Assign(FStd,'LW9.zap');Rewrite(FStd);
  Readln(FDat,n);
  for i:=1 to n do begin
     with Stud, Number do begin
     Readln(FDat,Name);
     Readln(FDat,Group,Number,Sum,SingOfGetting);
  end;
  Write(FStd,Stud);
  end;
  Close(Fdat);
  with Stud,Group do begin
      Name:='Ivanov'; Group:=033; Number:=4585 546464;
      Sum:=1100; SofG:=1;
   end;
  Write(FStd,Stud);
  Reset(FStd);
  Seek(FStd,1);
  Read(FStd,Stud);
  Stud.Group:=033;
  Seek(FStd,1);
  Write(FStd,Stud);
  Seek(FStd,0); 
  n:=FilesSize(FStd);
  Assign(FRes,'LW9Dat.txt');Rewrite(FRes);
  Writeln(FRes,'Dannie o',n,'studentah:');Writeln(FRes);
  Writeln(FRes,,Lin1); Writeln(FRes,Lin2);
  for i:=1 to n do begin
       Read(FStd,Stud);
       Writeln(FRes,Lin3);
       Writeln(FRes,'|',i:w1,'|');
       with Stud, Group do begin
            Write(FRes,Name,'':w1-Length(Name),');
            Write(FRes,Group:w2,'|');
            Write(FRes,Number:w3,'|');
            Write(FRes,Sum:w4,'|');
             if SofG 1 then sSofG:='poluchil' else sSofG:='ne poluchil';
            Writeln(FRes,sSofG,'':w5-Length(sSofG),'|');
          end;
    end;
    Seek(FStd,0);
    Writeln(FRes,Lin4);
    Writeln(FRes,'studenti poluchivwie stipendiu:');
     while of Eof(FStd) do begin
          Read(FStd,Stud);
          with Stud,Groupdo begin
              if  SofG=1
              then Writeln(FRes,Name,Group);
          end;
       end;
       Close(FRes);Close(FStd);
end.

[Stilet]

Writeln(FRes,,Lin1);

Может тут вторая запятая не нужна?

if SofG 1

Может быть

if SingOfGetting then...

И при этом лучше будет

SingOfGetting:Boolean;

Чем этот код не катит?

[Даша Amber]

я все исправила, теперь ему не нравиться сточка with Stud, Number do begin
,мне пишут:сделайте запись или возразите ожидаемой переменной

[Son Of Pain]

Должно быть просто with Stud do begin

И во всех похожих местах так же