Проверка правильности

[KORT]

Люди посмотрите лабу. Правильно ли она написана???!!!
Задания:
(Примечание к заданию:
1) Ввести заданный список из файла в массив записей.
2) Вывести список на экран.
3) Упорядочить список одним из алгоритмов сортировки (предусмотреть возможность выбора алгоритма). Процедуры сортировки оформить в виде модуля.
4) Вывести упорядоченный список на экран.)
В а р и а н т 1
Дан список, содержащий 10 записей, каждая из которых имеет структуру:
Шифр товара Наименование Цена Наличие
тип строка тип строка real да или нет
5 символов 25 символов целое
Список упорядочить по убыванию цены товара.

Вот и собственно работа:
Программа:

Uses Crt,Store;
Label 1;
Var
F:Sp;
Vihod,Sort,Vvod:byte;
Begin
ClrScr;
Repeat
Assign(F,'f:\Tovar.dat');
Writeln('Нажмите <Enter>, чтобы ввести свои данные.');
Writeln('Нажмите <Esc>, чтобы ввести данные из файла Tovar.');
Vvod:=ord(ReadKey);
If Vvod=13 then
Zap(f);
ClrScr;
Writeln('Используются данные файла Tovar.dat');
Schit(f);
1:Writeln('Для сортировки выбором нажмите 1, обменом - 2.');
Writeln('Для обоих сортировок нажмите Enter.');
Writeln;
Sort:=ord(ReadKey);
Case Sort of
49:SortVib;
50:SortObm;
13:Begin
SortVib;
Writeln;
SortObm;
End;
else
Begin
Writeln('Не выбран метод сортировки. Попробуйте ещё.');
Goto 1;
End;
End;
Writeln;
Writeln('Если хотите выйти, нажмите Enter.');
Vihod:=ord(ReadKey);
Until Vihod=13;
End.

(файл создайте сами)
продолжение смотри: Проверка правильности 2!!!

[KORT]

Модуль:

Unit Store;
INTERFACE
Uses Crt;
Type
T_zap=Record
Shifr:string[5];
Naim:string[25];
Cena:real;
Priznak:char;
end;
Sp=file of T_zap;
Var
Spis:array[1..10] of T_zap;
i,n,j:byte;
Procedure Zap(Var p:Sp);
Procedure Schit(Var p:Sp);
Procedure SortVib;
Procedure SortObm;
Procedure Vivod;
IMPLEMENTATION
Procedure Zap;
Begin
Write('Введите количество записей ');
Readln(n);
Rewrite(p);
For i:=1 to n do
With Spis[i] do
Begin
Write(' Введите шифр товара ');
Readln(Shifr);
Write('Введите наименование товара ');
Readln(Naim);
Write(' Введите цену товара ');
Read(Cena);
Write(' Наличие товара ');
Readln(Priznak);
Write(p,spis[i]);
End;
Close(p);
End;
Procedure Schit;
Begin
{$I-}
Reset(p);
{$I+}
If IOResult<>0 then
Begin
Writeln('Файл не найден');
Readkey;
Halt;
End;
i:=0;
Writeln('Шифр | Наименование товара | Цена | Наличие');
Repeat
Inc(i);
Read(p,Spis[i]);
With Spis[i] do
Begin
Writeln(Shifr:4,' | ',Naim:23,' | ',Cena:8:1,' | ',Priznak:7);
End;
Until Eof(p);
n:=i;
Close(p);
End;
Procedure Vivod;
Begin
Writeln('Шифр | Наименование товара | Цена | Наличие');
For i:=1 to n do
Begin
With Spis[i] do
Begin
Writeln(Shifr:4,' | ',Naim:23,' | ',Cena:8:1,' | ',Priznak:7);
End;
End;
End;
Procedure SortVib;
Var
imax:byte;
max:real;
d:T_zap;
Begin
For i:=1 to n-1 do
Begin
With Spis[i] do
max:=cena;
imax:=i;
d:=Spis[i];
For j:=i+1 to n do
Begin
With Spis[j] do
If cena>max then
Begin
max:=cena;
imax:=j;
d:=Spis[j];
End;
End;
spis[imax]:=spis[i];
spis[i]:=d;
End;
Writeln('Результат сортировки выбором:');
Vivod;
End;
Procedure SortObm;
Var
Key:byte;
d:T_zap;
Begin
Repeat
Key:=0;
For i:=1 to n-1 do
If Spis[i].cena<Spis[i+1].cena then
Begin
Key:=1;
d:=spis[i];
Spis[i]:=Spis[i+1];
Spis[i+1]:=d;
End;
Until Key=0;
Writeln('Результат сортировки обменом:');
Vivod;
End;
END.

[Carbon]

Ну, если работает, тогда правильно.

[KORT]

Работать, она работает. Но вот в чем вопрос: по идее модуль должен содержать только процедуры сортировки. А у меня в модуле процедуры сортировки+процедура записи+процедура вывода+процедура чтения из файла. Разве можно ли так делать? Если же в модуле оставляю только процедуры сортировки, то программа не сортирует записи!!!!