паскаль. Сортировка массива.

[suv121]

помогите найти ошибки в программе , она должна делать и выводить результат выбранного типа сортировки массива:

Program A;
Const n=10;
Type vector=array[1…n] of integer;
var arr:vector;
ch:char;

procedure Sortirovka1;
var I:Integer;
J:Integer;
K:Integer;
Tmp:Real;
begin
for i:=0 to N-1 do
for j:=0 to N-1-i do
if Arr[j]>=Arr[j+1]
then
begin
Tmp:=Arr[j];
Arr[j]:=Arr[j+1];
Arr[j+1]:=Tmp; end;
end;

procedure Sortirovka2;
var I:Integer;
J:Integer;
K:Integer;
Tmp:Real;
Begin
dec(N);
i:=1;
repeat j:=0;
repeat
if Arr[i]<=Arr[j]
then
begin k:=i; Tmp:=Arr[i];
repeat Arr[k]:=Arr[k-1]; dec(k);
until
not(k>j); Arr[j]:=Tmp; j:=i;
end
else inc(j);
until
not(j<i); inc(i);
until
not(i<=n);
end;

procedure Sortirovka3;
var I:Integer;
J:Integer;
K:Integer;
Tmp:Real;
begin dec(N); i:=1;
repeat j:=0;
repeat
if Arr[i]>=Arr[j]
then
begin k:=i; Tmp:=Arr[i];
repeat Arr[k]:=Arr[k-1]; dec(k);
until
not(k>j); Arr[j]:=Tmp; j:=i;
end
else inc(j);
until
not(j<i); inc(i);
until
not(i<=n);
end;



begin
repeat
writeln('Vyberite variant sortirovki:');
writeln('1 - Sortirovka 1');
writeln('2 - Sortirovka 2');
writeln('3 - Sortirovka 3');
writeln;
write('...');
ch:=readkey;
until (ch='1') or (ch='2') or (ch='3');
case ch of
'1': Sortirovka 1;
'2': Sortirovka 2;
'3': Sortirovka 3
;
end;
end.

procedure Print(arr:vector);
var i_:integer;
begin
clrscr;
writeln('Ishodnyi massiv:');
for i_:=1 to n do write(arr[i_],' ');
end.

помогитеееее

[Stilet]

procedure Sortirovka 1;

Почему тут пробел?
На каие строчки компилятор ругается и как?

Tmp:Real;

А че это он у тя вещественный когда сам массив целочисленный?

[Alex_FF]

по-любому ошибка будет. у тебя массив с единицы начинается, а циклы с нуля.

[suv121]

кто-нибудь можете исправить все ошибки в коде и выложить его сюда