кто поможет с прогой ?

Ввести массив из 11 целых чисел. Поменять местами минимальный и последний элементы массива. Вывести полученный массив на экран.
program Project1;
var min,i,k,b,n: integer;
m:array[1..20] of integer;
begin
cls;
n:=11;
for i:=1 to n do begin
m:=random(100);
write(' ',m);
end;
min:=m;
for i:=1 to n do begin
if m; k:=i; end;
end;
b:=m[n];m[n]:=min;m[k]:=b;
writeln;
for i:=1 to n do write(' ',m);
end.
выдает ошибку в cls???как же решить