Zápis do súboru

//Napiste program ktorý bude do súboru zapisovať tieto údaje o žiakoch v triede
//Meno priezvisko, a známky z 3 predmetov
//TSV, PWD, MAT
//Udaje budu oddelene medzerou
//Vypis všetkých údajov zo súboru
program udajeoziakoch;
{$APPTYPE CONSOLE}
uses SysUtils;
type znamka=1..5;
var f:text; m:string; tsv,pwd,mat:znamka; n,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(f,'ziaci.txt');
  write('Zadajte pocet ziakov: ');
  readln(n);
  rewrite(f);
  for i:=1 to n do
    begin
      write('Zadajte meno ',i,' ziaka: ');
      readln(m);
      write('Zadajte znamky z TSV, PWD, MAT ',i,' ziaka: ');
      readln(tsv,pwd,mat);
      write(f,m,' ',tsv,' ',pwd,' ',mat);
      writeln(f);
    end;
  close(f);
end.