АМ
Алексей Марин
Паскаль выдает на строке repeat ожидался идентификатор.
program massiv;
uses crt;
var m: array [1..10] of integer;
i : integer;
j : boolean;
c : integer;
repeat
j:= false;
for i:= 1 to 10-1
begin
if m>m[i+1] then
begin
f:= true;
c:=m;m:=a[i+1];a[i+1]:=c;
end;
end;
end.