Помогите с паскалем

[XYJIU_r_AHKA]

Помогите плиз на паскале ничего не делала. По учебникам смогла написать только сортировку .
Вводится длина вектора и значения его элементов Составить вектор с М минимальными значениями исходного вектора.
Сортировка
for i = 1 to n do
begin
--for j = i + 1 to n do
--begin
-- if a[j] < a then
----begin
----temp = a;
----a = a[j];
----a[j] = temp;
----end
--end
--end
Еще если можно подскажите как сделать так что бы при вводе вместо числа букву или фразу программа не ругалась, а писала введите число. Заранее огромное спасибо

[somewhere]

Код: Выделить всё

var
a: array[1..1000] of Integer;
N,X,M: Integer;

begin
Writeln('Input array length: ');
Readln(N);
Writeln('Input values: ');
For X:=1 to N do
    begin
    Read(A[X]);
    Write(',');
    end;
Writeln('Input M: ');
Readln(M);
===твоя сортировка для массива A===
For X:=1 to M do Write(A[X],',');

что-то типа того

[XYJIU_r_AHKA]

ошибку находят в моей сортировке (

[somewhere]

for i := 1 to n do
for j := i + 1 to n do
if a[j] < a then
begin
temp := a;
a := a[j];
a[j] := temp;
end;

[XYJIU_r_AHKA]

все равно) подчеркивают в первой строчке i := ...

[XYJIU_r_AHKA]

все равно огромное спасибо!)

[Хыиуду]

ну естественно, i-то не объявлена! В разделе описаний напиши var i:word;