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

[Даша Amber]

не помогло,здесь много ошибок

[Даша 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;
  с:string;
  a:integer;
  sSingOfGetting:string[10];
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 do begin
     Readln(FDat,Name);
     Readln(FDat,Group,Number,Sum,SingOfGetting);
  end;
  Write(FStd,Stud);
  end;
  Writeln('Вы хотите добавить еще одну запись(да\нет)');
  Readln(c);
  while c='да' do begin
  with Stud do begin
  Write('Введите имя:');
  Readln(Name);
  Write('Введите группу:');
  Readln(Group);
  Write('Введите номер паспорта:');
  Readln(Number);
  Write('Введите сумму:');
  Readln(Sum);
  Write('Введите признак получения:');
  Readln(SingOfGetting);
  end;
  Write(FStd,Stud); 
  Writeln('Вы хотите добавить еще одну запись(да\нет)');
  Readln(c);
  end;
  Close(FDat);
  Close(FStd);
  Reset(FStd);
  Writeln('Вы хотите изменить какую-либо запись(да\нет)');
  Readln(c);
  While c='да' do begin
  Writeln('Введите номер записи,которую хотите изменить:');
  Readln(a);
  Seek(FStd,a-1);
  Read(FStd,Stud);
  with Stud do begin
  Write('Введите имя:');
  Readln(Name);
  Write('Введите группу:');
  Readln(Group);
  Write('Введите номер паспорта:');
  Readln(Number);
  Write('Введите сумму:');
  Readln(Sum);
  Write('Введите признак получения:');
  Readln(SingOfGetting);
  end;
  Seek(FStd,a-1);
  Write(FStd,Stud);
  Writeln('Вы хотите изменить какую-либо запись(да\нет)');
  Readln(c);
  end;
  Close(FStd);
  Reset(FStd);
  Seek(FStd,0); 
  n:=FilesSize(FStd);
  Assign(FRes,'LW9Dat.txt');Rewrite(FRes);
  Writeln(FRes,'Данные о',n,'студентах:');
  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 SingOfGetting='1' then sSingOfGetting:='poluchil' else  SingOfGetting:='ne poluchil';
            Writeln(FRes,sSingOfGetting,'':w5-Length(sSingOfGetting),'|');
          end;
    end;
    Seek(FStd,0);
    Writeln(FRes,Lin4);
    Writeln(FRes,'студенты получившие стипендию:');
     while of Eof(FStd) do begin
          Read(FStd,Stud);
          with Stud do begin
              if  SingOfGetting=1
              then Writeln(FRes,Name,Group);
          end;
       end;
       Close(FRes);Close(FStd);
end.

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

[Даша Amber]

может ли кто нить посмотреть какие тут ошибки присутствуют,а то вроде ошибок нет ,но программка не запускается

[Serge_Bliznykov]

Даша, а Вас учили не обманывать?!

Код, который Вы привели выше, содержит целый ряд ошибок,
которые банально не дадут коду даже скомпилироваться!!
Так о какой же работе может идти речь?!

я устранил очевидные ошибки, влияющие на компиляцию.
В остальном уже самостоятельно разбирайтесь...

[Даша Amber]

спасибо Вам большое! в след.раз буду учитывать свои ошибки!
P.S: Я действительно не обманывала,у меня при компиляции ошибок не выдавало!