сортировка методом шейкера и пузырька

[Степан sapral]

Pascal
Отсортировать одновимирний массив методом пузырька и шейкера на Рascal. Программу оформить у виляди процедур и функций. Программа должна владеть меню выбора режимов ее работы. Предусмотреть считывание входных данных из файла или из клавиатуры и сохранения результатов программы в файл.
Уже написаний текст программы :

program rozracha;
uses crt;  const n=10;
type Tses=array[1..n] of integer;
var Z:Tses;

procedure bulbashka(var A:Tses);
var i,j,t:integer;    ch:char;
fil:file of Tses;
begin
writeln('Zshchytaty wchidni dani z faila?  Natysnit "a"');
writeln('Zshchytaty wchidni dani z klawiatury? Natysnit "b"');
readln(ch);
if ch='a' then  begin
writeln('Dani zshchytani z fajla');
assign(fil,'d:\ca11\programy\demos.txt');
reset(fil);
for i:=1 to n do begin
read(fil,a[i]);  writeln(fil,a[i]); end;
writeln('Dani widsortowani metodom Bulbashky:');
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
t:=a[j];  a[j]:=a[j+1];  a[j+1]:=t;  end;
for i:=1 to n do
write(a[i],' ');  close(filname);  end;
if ch='b' then  begin
writeln('Uwedit 10 shchysel:');
for i:=1 to n do
readln(a[i]);      clrscr;
write('Dani zshchytani z klawiatury:');
for i:=1 to n do
write(a[i],' ');    readln;
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
t:=a[j];  a[j]:=a[j+1];  a[j+1]:=t;  end;
Writeln('Shchysla widsortowani metodom Bulbashchky:');
for i:=1 to n do
write(a[i],' ');  end;   end;
begin     clrscr;
bulbashka(Z);
  readln;  end.

Нэ могу считать данные из файла. Прошу памочь.

[Mad_Cat]

assign(fil,'d:\ca11\programy\demos. txt');
reset(fil);
while not eof(fil) do begin
read(fil,a[i]); writeln(fil,a[i]); end;