Matematické Fórum

program zaci_H;
type
student = record
        jmeno:string;
        narozen:integer;
        znamky:array [1..5] of byte;
        end;

var Fkniha:file of student;
    trida:array [1..30] of student;
    zak:student;
    konec:boolean;
    i,j,k:integer;

begin
assign(Fkniha,'studenti.dat');
rewrite(Fkniha);
konec:=false;
repeat
i+=1;
writeln('Zadejte jmeno: [ENTER - konec vstupu]');
readln(trida[i].jmeno);
if trida[i].jmeno <>'' then
   begin
   writeln('Zadejte rok narozeni: ');
   read(trida[i].narozen);
   for j:=1 to 5 do
       begin
       writeln('Zadejte znamku: ');
       read(trida[i].znamky[j]);
       end;
   end
else
    konec:=true;
write(Fkniha,trida[i]);
until konec;
close(Fkniha);
writeln;

reset (Fkniha);
while not (eof(Fkniha))  do
      begin
      read(Fkniha,zak);
      if zak.jmeno<>'' then
         begin
         writeln('Jmeno: ',zak.jmeno);
         writeln('Narozen: ',zak.narozen);
         write('Znamky: ');
         for k:=1 to 5 do
             write(zak.znamky[k],' ');
         writeln;
         end;
      end;
close(Fkniha);

readln;readln;
end.