Информатика

Фомаида

15 января, 01:33

Помогите найти ошибку в программе, при запуске на строке "vyvod (arr) ; " выдает ошибку: "Ожидалось выражение". Не пойму в чем проблема.

uses crt;

type

arr=array [1 ... 10] of integer;

procedure vvod (var ar : arr) ;

var

i:byte;

begin

randomize;

for i:=1 to 10 do

ar[i]:=random (50) - 20;

end;

procedure Order (var ar : arr; n : integer) ;

var i, j, T: integer;

begin

for i : = 1 to n do

for j : = n downto i+1 do

if (ar[Pred (j) ] = 0) then

begin

T : = ar[Pred (j) ];

ar[Pred (j) ] : = ar[j];

ar[j] : = T;

end;

end;

procedure vyvod (var ar:arr) ;

var

i:byte;

begin

writeln;

for i:=1 to 10 do

write (ar[i],' ') ;

end;

begin

writeln ('Массив arr:') ;

vyvod (arr) ;

end.