оформить как функцию

[anco]

Uses
Crt;
Type ar=array[1..10,1..10] of integer;
Var
a:ar;
n,m,i,j,k:integer;

Procedure vvod(stroka,stolba:byte);
begin
for i:=1 to stroka do
for j:=1 to stolba do read(a[i,j]);
writeln;
end;

[Игорь007]

но т.к сравниваю я по golos, а менять мне надо mesto, то ниче не получилось

Да, так отсортировать не получиться. Могу посоветовать использовать вместо переменной mesto указатель на такую же структуру, т.е. использовать не массив, а список. Если же обязательно нужно так, то придется создать дополнительных еще 2 массива. В первый перенести значения переменных golos. А во второй (такой же длины) просто записать индексы массива структур (от 0 до n). Отсортировать массив 1 и параллельно также сортировать другой массив. В результате получим порядок в каком должны быть расположены значения mesto. Понятно, или все таки код написать?