Вопрос по информатике:

Найдите сдесь ошибку и напишите в исправном виде пожалуйста учитель сказал что там ошибка есть var j,i,min,k,t:integer;
a:array [1..100] of integer;
begin a[1]:=5;a[2]:=4;a[3]:=7;a[4]:=2;a[5]:=9;a[6]:=6;
for j:=1 to 6 do
begin
min:=a[j];
for i:=j to 6 do
if min>a[i] then begin
min:=a[i];t:=i
end;
k:=a[j];a[j]:=min ;a[t]:=k;
write(j,')');
for i:=1 to 6 do
write(a[i],';');
writeln;
end;
end.