Ошибка runtime error 105 at 0001:002B

[agoriachev]

Program massiv2;
{Сортировка массива по возрастанию методом "пузырька"}
const size=10;
var
	a:array[1..size] of integer;
        i:integer; {счетчик циклов}
        k:integer; {текущий индекс элемента массива}
        buf:integer; {буфер}
begin
	writeln('Сортировка массива по возрастанию методом "пузырька"');
        writeln('введите в одной строке ',size,' целых чисел и нажмите ввод...');
        for k:=1 to size-1 do
        	read(a[k]);
        readln(a[size]);

        writeln('сортировка...');
        for i:=1 to size-1 do
        	begin
                	for k:=1 to size-1 do
                        	begin
                                	if a[k]>a[k+1] then
                                        	begin
                                                {обменяем местами элементы}
                                                {к-й и (к+1)-й}
                                                buf:=a[k];
                                                a[k]:=a[k+1];
                                                a[k+1]:=buf;
                                                end;
                                end;
                {отладочная печать - состояние массива после очередного}
                {цикла сортировки}
                for k:=1 to size do write(a[k],' ');
                writeln;
		end;
writeln;
writeln('Массив отсортирован. Для выхода нажмите alt+f4.');
for k:=1 to size do write(a[k],' ');
readln;
end.

Всяческие отладки говорят, что программа без ошибок.
Но при выполнении появляется ошибка
runtime error 105 at 0001:002B

[capta1n]

у меня нет никакой ошибки - нормально сортирует

[agoriachev]

Опаньки, я сам нашел ошибку.
Пока печатал - потерял uses wincrt;
Теперь все норма.