Сортировка и поиск элементов массива

program HT;
 
uses
Crt;
 
const
n = 8;
m = 10;
Var
min:real;
procedure massive;
 
var
A: array[1..m, 1..n] of real;
L, R, i, j, S: integer;
x, k, min: real;
Sort: boolean;
begin
 
clrscr;
 
{Vuvid array A}
 
randomize;
for i := 1 to m do
for j := 1 to n do
A[i, j] := random(100) / 10;
writeln('Array A');
end;
{--------------------------------------------------------------}
 procedure QuickSort;
 Var A : array[1..m, 1..n] of integer;
 N,T : integer;
 Procedure Sort(p,q : integer);
 Var i,j,r : integer;
 Begin
 if p<q then
 begin
 r:=A[p];
 i:=p-1;
 j:=q+1;
 while i<j do
 begin
 repeat
 i:=i+1;
 until A[i]>=r;
 repeat
 j:=j-1;
 until A[j]<=r;
 if i<j then
 begin
 T:=A[i];
 A[i]:=A[j];
 A[j]:=T;
 end;
 end;
 Sort(p,j);
 Sort(j+1,q);
 end;
 End;
 Begin
 Sort(1,N);
 End;
 
{--------------------------------------------------------------}
procedure input_fil;
Var
s,min:real;
f:text;
t:string;
begin
assign (f,t);
reset(f);
read (f,s);
min:=s;
repeat
read (f,s);
if s< min then min:=s;
writeln (s:4:2,' ');
until EOF(f);
close(f);
end;
{--------------------------------------------------------}
begin
clrscr;
gotoxy (15,8);
gotoxy (10,10);
{out_fil;}
writeln ('Чтение из файла ');
clrscr;
input_fil;
writeln('min= ', min:4:0);
gotoxy (10,20);
writeln('нажмите любую клавишу’);
readln;
end.