Turbo pascal program

[Wojcik]

Witam musze napisac program który generuje 10 liczb i zapisuje je do pliku "liczby.txt" wczytuje je i znajduje najmniejsza i zapisuje do "min.txt" wczytuje znowu i szuka najwiekszej i zapisuje do "max.txt" i wczytuje ostatni raz i wyciaga sednia i zapisuje do "ws.txt". Napisałem go lecz nie chce mi zapisywac danych do "min.txt max.txt i ws.txt" nie wiem co sie dzieje zobaczcie moze popelnilem jakis blad.

program plikczek;

uses crt;

VAR liczby,min,max,ws:TEXT;

tab:array[1..10] OF INTEGER;

uzyt,mi,ma,w,a,o,t,i:INTEGER;

BEGIN

clrscr;

randomize;

WriteLN('Podaj ilo† liczb do wygenerowania');

ReadLN(o);

 

ASSIGN(liczby,'C:\liczby.txt'); {wypisanie liczb w pliku txt}

rewrite(liczby);

Repeat

t:=t+1;

a:=RANDOM(10);

writeLN(liczby,a);

UNTIL t=o;

close(liczby);

 

ASSIGN(liczby,'C:\liczby.txt'); {znalezienie minimalnej}

reset(liczby);

mi:=10;

Repeat t:=t+1;

If a<mi then mi:=a

UNTIL t=o;

close(liczby);

 

ASSIGN(min,'C:\min.txt'); {wpisanie minimalnej do txt}

rewrite(min);

WriteLN(mi);

close(min);

 

ASSIGN(liczby,'C:\liczby.txt'); {znalezienie maxymalnej}

reset(liczby);

ma:=0;

Repeat t:=t+1;

If a>ma then ma:=a

UNTIL t=o;

close(liczby);

 

ASSIGN(max,'C:\max.txt'); {wpisanie maxymalnej do txt}

rewrite(max);

WriteLN(ma);

close(max);

 

ASSIGN(liczby,'C:\liczby.txt'); {znalezienie sredniej}

reset(liczby);

Repeat t:=t+1;

w:=w+a

UNTIL t=o;

close(liczby);

 

ASSIGN(ws,'C:\ws.txt'); {wpisanie sreniej w plik txt}

rewrite(ws);

WriteLN(w);

close(ws);

END.