Napisałem mały program ale wywala mi błąd “Exitcode 103”. Nie mogę znaleźć błędu Program jest krótki. Proszę o pomoc. Oto kod(lub: http://wklej.org/id/566651/ - lepsze formatowanie):
Program Losowe_R;
Uses Crt;
Type
f = file of real;
var
plik: f;
nazwa: string;
Function IleLiczb: byte;
var
min, x: real;
begin
Randomize;
IleLiczb:= Random(50)+1;
end;
Procedure ZapiszPlik(var plik: f; var nazwa: string);
var
i: byte;
x: real;
begin
WriteLn('Podaj nazwe pliku');
ReadLn(nazwa);
Assign (plik, nazwa);
Rewrite(plik);
Randomize;
for i:= 1 to IleLiczb do
begin
x:= Random + Random(20)+1;
Write(plik, x);
end;
Close(plik);
end;
Function LiczMinimum(var plik: f; nazwa: string): real;
var
min, x: real;
begin
Read(plik, x);
min:= x;
while not EoF(plik) do
begin
Read(plik, x);
if x < min then min:= x;
end;
Close(plik);
LiczMinimum:= min;
end;
Function Srednia(var plik: f; nazwa: string): real;
var
x,s: real;
begin
s:=0;
while not EoF(plik) do
begin
Read(plik,x);
s:= s+x;
end;
Srednia:= s/FileSize(plik);
end;
Procedure CzytajZpliku(var plik: f; nazwa: string);
begin
Assign(plik, nazwa);
Reset(plik);
WriteLn('Ilosc liczb w pliku ',nazwa,': ',FileSize(plik));
WriteLn('Najmniejsza liczba zapisana w pliku to ',LiczMinimum(plik, nazwa):5:2);
Seek(plik, 0);
WriteLn('Srednia arytmetyczna liczb zapisanych w pliku to ',Srednia(plik, nazwa):5:2);
Close(plik);
end;
begin
ClrScr;
IleLiczb;
ZapiszPlik(plik, nazwa);
LiczMinimum(plik, nazwa);
Srednia(plik, nazwa);
CzytajZpliku(plik, nazwa);
WriteLn;
WriteLn('Aby zakonczyc prace programu nacisnij dowolny klawisz...');
ReadKey;
end.