помогите с прогой в паскале?

Question

Ввести массив из 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<min>; k:=i; end; 
end; 
b:=m[n];m[n]:=min;m[k]:=b; 
writeln; 
for i:=1 to n do write(' ',m); 
end. 
выдает ошибку в cls???как же решить

Руслан · Accepted Answer

uses 
 crt; 
 ...
begin 
 clrscr; 
 ...
end.

Аня · Answer

Используйте clrscr.

Дмитрий Слеза · Answer

Сначало помоги нам с добром нежностью любовью