kniznica

//Program si vypyta udaje meno autora, nazov diela, rok vydania, cenu, pocet ks, a vypise to
program kniznica;
{$APPTYPE CONSOLE}
uses SysUtils;
type rok=0..3000;
var d,m:array[1..30] of string;
     c,ks:array[1..30] of byte;
     r:array[1..30] of rok;
     pk,i:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko knih chcete zadat do databazy?: ');
  readln(pk);
  for i:=1 to pk do;
    begin
      write('Nazov ',i,' diela: ');
      readln(d[i])
      write('Meno autora ',i,' knihy: ')
      readln(m[i]);
      write('Rok vydania ',i,' knihy: ');
      readln(r[i]);
      write('Cena ',i,' knihy: ')
      readln(c[i]);
      write('Pocet kusov ',i,' knihy: ');
      readln(ks[i]);
    end;
  writeln('Vypis databazy');
  for i:=1 to pk do writeln('Nazov diela: ',d[i],' Meno Autora: ',m[i],' Rok Vydania: ',r[i],' Cena: ',c[i],' Pocet Kusov: ',ks[i]);
  readln;
end.