Operácie so súbormi

program operaciesosubormi;
{$APPTYPE CONSOLE}
uses SysUtils;
var r,u:text;
    n,x,i,max,min,s,pc,c:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(r,'randomcisla.txt'); assign(u,'usporiadanecisla.txt');
  write('Kolko cisiel chcete vygenerovat?: ');
  readln(n);
  write('Zadajte rozsah cisiel (0-x): ');
  readln(x);
  append(r);
  randomize;
  for i:=1 to n do
    begin
      c:=random(x);
      writeln(r,c);
    end;
  close(r);
  reset(r);
  max:=0;
  s:=0;
  pc:=0;
  min:=255;
  while not eof(r) do
    begin
      readln(r,c);
      write(c,' ');
      s:=s+c;
      pc:=pc+1;
      if c>max then max:=c;
      if c<min then min:=c;
    end;
  close(r);
  append(u);
  writeln(u,'Priemer cisiel: ',s/pc:0:2);
  writeln(u,'Maximalne cislo: ',max);
  writeln(u,'Minimalne cislo: ',min);
  writeln(u);
  close(u);
end.