Здравствуйте. помогите пожалуйста (сортировка вставками)

Нужна ваша помощь задали составить программу а до меня не везде доходит что надо написать
program vstavki;
const n=5;
var F:array[1..n] of integer;
x,i,k:integer;
begin
for k:=1 to n do begin write(введите ',k,' элемент');
readln (f[k]);
end;
for k:=1 to n-1 do begin x:=f[k+1];
i:=k;
while (i>0);
end (f>x) do begin f[i+1]:=f;
i:=i-1;
end;
f[i+1]:=x;
end;
writeln ('упорядоченный массив');
for k:=1 to n write (f[k]);
end.

Предполагаю что так, тогда паскаль требует while (i>0); do и еще что то. дальше пока сказать трудно тут застряла.
Помогите пожалуйста разобраться.

Паскаль.