база данных паскаль

[blackart]

Нужно написать базу данных, что бы принимала\показывала студента по нескольких столбцам.
Завтыкал, база принимает только 1го студента, при вводе второго 1й удаляется и второй на его место записывается. С выводом, наверное, тоже косяк, посмотрите\исправьте меня пожалуйста.

uses crt;
type bada=record
IMA,FAM,GRYP,NZAL,klab,rait:string;
end;
procedure p1;
var as: text;
a:bada;
begin
assign(as,'bada.txt');
append(as);
writeln('Vvod stydenta');
writeln('VVod imeni: ');
readln(a.ima);
writeln('familii: ');
readln(a.fam);
writeln('gryppu: ');
readln(a.gryp);
writeln('nomera zalikovoi knuggu: ');
readln(a.nzal);
writeln('kol-va zdanux lab: ');
readln(a.klab);
writeln('raitinga: ');
readln(a.rait);
writeln(a.ima,' ',a.fam,' ',a.gryp,' ',a.nzal,' ',a.klab,' ',a.rait,' ');
close(as);
end;

procedure p2;
var as:text;
a:bada;
begin
assign(as,'bada.txt');
append(as);
writeln(a.ima,' ',a.fam,' ',a.gryp,' ',a.nzal,' ',a.klab,' ',a.rait);
close(as);
end;

var m:integer;
   begin
   clrscr;
   repeat
   writeln('M E N U : ');
   writeln('1 - регистрация студента.');
   writeln('2 - вывод студентов.')
 writeln('0 - exit.');
   write('Vyberite optiu menu: ');
   readln(m);
   case m of
   1:p1;
   2:р2
   0:
   else writeln('Vy vybrali nevernuiu optiu!');
   end;
   until m=0;
   end.

[Sciv]

Используйте вместо текстовых файлов типизированные:

var as: file of bada;

Запись в файл:

Assign(as,'bada.txt');
Reset(as);              {По хорошему - в этом месте лучше использовать проверку сцществования файла, чтобы знать, юзать Rewrite или Reset. 
Данный код подходит ТОЛЬКО при условии, что файл на диске уже есть}

... {Вместо многоточий - процедура ввода}

Write(as,a);

И вывод на экран

While not eof(as) do begin
  Read(as,a);
  
  ...  {Здесь уже Ваш вывод}

end;

P.S. Есть еще такая штука, как WITH, которая позволяет записать вот такой код:

With a do begin
  writeln('VVod imeni: ');
  readln(ima);
  writeln('familii: ');
  readln(fam);
  writeln('gryppu: ');
  readln(gryp);
  writeln('nomera zalikovoi knuggu: ');
  readln(nzal);
  writeln('kol-va zdanux lab: ');
  readln(klab);
  writeln('raitinga: ');
  readln(rait);
end;

[isqoff]

не видно ни записи в файл ни вывода из файла
Пример записи в файл:

var f:Text;
Begin
    if FileExists('f:/base.txt')
       then begin
              Assign(f,'f:/base.txt');
              Append(f);
              write(f,'Zapiska');
              Close(f);
            end
        else begin
                Assign(f,'f:/base.txt');
                Rewrite(f);
                write(f,'Zapiska');
                Close(f);
             end;
            
End.