задача в Паскаль...

[Вера123]

у меня проблема в паскале...Оформить процедурой сортировку числового массива методом выбора. Определение минимального элемента
сделать в виде еще одной (внутренней) процедуры....вот такая...помогите...вот я пробовала...

PROCEDURE SelectionSort (VAR a: ARRAY OF REAL);
  VAR
    i, min: INTEGER;
    t: REAL;
BEGIN
  FOR i := 0 TO a - 2 DO
    min := i;
    FOR j := i + 1 TO LEN(a) - 1 DO
      IF a[min] > a[j] THEN min := j END
    END;
    t := a[i]; a[i] := a[min]; a[min] := t
  END
END SelectionSort;

[VadEr]

const SIZE=10;
type mas = ARRAY[0..SIZE] OF REAL;

PROCEDURE SelectionSort (VAR a: mas);
var
   min:integer; { номер минимального элемента в части
                  массива от i до верхней границы массива }
   j:integer; { номер эл-та, сравниваемого с минимальным }
   buf:real; { буфер, используемый при обмене эл-тов массива }
   i:integer;
begin
   for i:=1 to SIZE-1 do
      begin
         { поиск минимального эл-та
         в части массива от a[1] до a[SIZE]}
         min:=i;
         for j:=i+1 to SIZE do
            if a[j] < a[min]
               then min:=j;
            { поменяем местами a[min]  и a[i] }
	    buf:=a[i];
	    a[i]:=a[min];
	    a[min]:=buf;
end;

[__STDC__]

Это вы пробовали на компонентном паскале копипастить из википедии по той ссылке, что я вам давал в другой теме...

[Stilet]

Верочка, там же по ссылке в Вики есть пример на "классическом" паскале. )
Вот его и ужно брать.

[liberakatnem]

Прошу помощи по задаче на Паскале. Задача сама есть, но почему-то не работает.
Условие: выбрать из предложения слова, которые начинаются и заканчиваются на одну и ту же букву, используя текстовые файлы для ввода предложения и вывода слов.

Программа:

program z3;
uses crt;
var
  It, Ot : Text;
  K, H : string;
  I, J : Integer;

begin
  AssignIt, g:prz7773input.txt;
  ResetIt;
  AssignOt, g:prz7773output.txt;
  RewriteOt;
  while not EOFIt do
    begin
      ReadLnIt, K;
      while LengthK <> 0 do
        begin
          I := 1;
          while I <= LengthK do
          if Ki =   then IncI
          else Break;

          J := I;
          while J <= LengthK do if KJ <>   then IncJ
          else Break;
          H := CopyK, i, J - i;
          DeleteK, 1, J - 1;
          if LengthH >= 2 then
          if H1 = HLengthH then WriteLnOt, H;
        end;
    end;
  CloseIt;
  CloseOt;
end.

Понимаю, что проблема в условии, а вот в чем конкретно? Если знаете, подскажите пожалуйста. Заранее благодарна.
форматируйте ваш код! //модератор

[__STDC__]

а вы параметры функций принципиально в () не заключаете или просто не дописали?
P.S. Отдельную тему...