program tabliza; uses crt;
const n=10;
type
ANk=record
npp:1..n;
FIO:string[13];
Adr:string[15];
Dr:string[8];
tel:string[7];
Ocen:array[1..5] of 2..5;
SrB:real;
end;
var
A12:array[1..n] of Ank;
nom,i,j,k,h,y:integer;s:integer;min:string;g:ANk
После введения данных необходимо организовать диалог по сортировке(прямой метод сортировки) полей таблицы при помощи процедуры.Т.е. будем вводить название поля(или маркер,указывающий на конкретное поле) по которому нужно сортировать и это станет входящим параметром процедуры.После выводим результат сортировки.Подскажите,пожалуйста, как сделать такую процедуру.