Упоpядочить тpи числа a, b, c по возрастанию таким образом, чтобы переменной а соответствовало самое маленькое число, b – сpеднее, с – наибольшее. Числа А,B,C находятся в файле input.txt,а результат записывается в файл output.txt — Pascal(Паскаль)

var 
  Arr:array[1..3] of integer;
  a,i,j,tmp,n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
n:=0;
while not eof(input) do
  begin
    inc(n);
    read(input,a);
    Arr[n]:=a;
  end;
for j:=1 to n-1 do
  for i:=1 to n-j do
  if Arr[i]>Arr[i+1] then
    begin
      tmp:=Arr[i];
      Arr[i]:=Arr[i+1];
      Arr[i+1]:=tmp;
    end;
for i:=1 to n do
  write(output,Arr[i],' ');
close(output);
close(input);
end.