Записи

[RECREATOR]

const n=300;
type запись=record;
ключ: integer;
тело: array [1..99] of 'a'...'z'
end;
таблица=array [1..n] of запись;

Считая что в таблице записи имеют различныеключи, рписать процедуру упоряд(т). Упорядочивающую записи таблицы Т по возрастанию их ключей


вот такое дали, но не знаю куда пихать

для i := 1 до n - 1 делать
  для j := 2 до n делать
    если ефблица[i].ключ > таблица[j].ключ то
    начать
      временнаязапись := таблица[i];
      таблица[i] := таблица[j];
      таблица[j] := временная запись;
    кончить;

[Wise]

тебе всё дали..
для = for
до =to
делать =do
если =if
начать =then
кончить =end
Всё остальное назначаешь переменными..
ну а "пихать" после begin

[RECREATOR]

const n=300;
type r = record
k: integer;
b: array [1..99] of 'a'..'z'
end;
var t: array [1..n] of r;
i,j,vr: integer;
begin
for i:= 1 to n - 1 do
for j:= 2 to n do
if t [i].k > t[j].k then begin
vr := t[i];
t[i] := t[j];
t[j] := vr;
end;
end.

[RECREATOR]

Не подскажите где ошибка?